هل توجد دالة لمعرفة حجم الملف ؟

[color= #000000; font-weight: bold;]function TForm1[color= #339933;].GetFileSize[color= #009900;](const APath[color= #339933;]: string[color= #009900;])[color= #339933;]: int64[color= #339933;];

[color= #000000; font-weight: bold;]var

  Sr [color= #339933;]: TSearchRec[color= #339933;];

begin

  [color= #b1b100;]if FindFirst[color= #009900;](APath[color= #339933;],faAnyFile[color= #339933;],Sr[color= #009900;])[color= #339933;]=[color= #cc66cc;]0 then

  try

    Result [color= #339933;]:= Int64[color= #009900;](Sr[color= #339933;].FindData[color= #339933;].nFileSizeHigh[color= #009900;]) shl [color= #cc66cc;]32 [color= #339933;]+ Sr[color= #339933;].FindData[color= #339933;].nFileSizeLow[color= #339933;];

  finally

    FindClose[color= #009900;](Sr[color= #009900;])[color= #339933;];

  [color= #990000;]end

  [color= #b1b100;]else

    Result [color= #339933;]:= [color= #cc66cc;]0[color= #339933;];

[color= #990000;]end[color= #339933;];

1. Label3.Caption := IntToStr(AColumn.Length);
2.