the correct way to use get size function in object pascal

Question

im a beginner in DELPHI and i have one question.. how to call this function and use it, i want to show the result in a label, also how to declare the function in the correct way, many thanks in advance.

function FindFileSize(Filename:string):integer;
var
sr : TSearchRec;
begin
if FindFirst(filename,faAnyFile-faDirectory,sr) = 0 then
Result := sr.Size
else
raise EFileNotFoundException.Create(filename+' not found.');
FindClose(sr);
end;

Answer 1

Try something like this:

..., SysUtils;

type
  EFileNotFoundException = class(Exception)
  end;

function FindFileSize(const Filename: string): Int64;
var
  sr : TSearchRec;
  Err: Integer;
begin
  Err := FindFirst(filename, faAnyFile and (not faDirectory), sr);
  if Err = 0 then
  begin
    FindClose(sr);
    if (sr.Attr and faDirectory) = 0 then
    begin
      Result := sr.Size;
      Exit;
    end;
    Err := ERROR_FILE_NOT_FOUND;
  end
  if Err = ERROR_FILE_NOT_FOUND then begin
    raise EFileNotFoundException.Create(filename + ' not found.');
  end else begin
    RaiseLastOSError(Err);
  end;
end;

procedure TMyForm.Button1Click(Sender: TObject);
begin
  Label1.Caption := IntToStr(FindFileSize('C:\path to\some file.ext'));
end;