Dateigröße ermitteln ohne Datei zu öffnen

[danku]

hab ein problemchen:

ich will die files aus einem opendialog1 in die 2.spalte einer stringgrid bekommen:
my try:

Delphi-Quellcode:

...
 //Füllen der StringGrid mit Opendialog1Daten
   sgfiles.RowCount := OpenDialog1.Files.Count + 1;

   for i := 0 to  OpenDialog1.Files.Count - 1 do
     begin
     sgfiles.cells[0,1 + i]:= OpenDialog1.Files[i];
     filesize(OpenDialog1.Files.Count - 1):=(sgfiles.cells[0,1+i]);

          end;
      end;
   end;

///////////////////////////////////////////////////////////

function Tfmformat.FileSize(fn: TFileName): Int64;
var
  sr: TSearchRec;
  i:byte;
begin
  if FindFirst(fn, faArchive, sr) = 0 then
  begin
    with sr.FindData do
      Result := Int64(nFileSizeHigh) shl 32 + nFileSizeLow;
    FindClose(sr);

   { else
    Result := 0; }
end;
end;

///////////////////////////////////////////////////////////