Størrelse på text-fil (Delphi2)

åben den som en "file of byte", eller brug findfirst(); eller filesize();

Jeg har fået følgende funktion:

function TForm1.GetFileSize(FileName: string): LongInt;
var SearchRec: TSearchRec;
begin
  if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then
    Result := SearchRec.Size
  else
    Result := -1;
end;

Det virker til mit brug.