Result := List.Items[i] as TFile;
でどうよ？