Получение размера файла

//Вариант №1
function GetFileSize(FileName: String): Integer;
var
  FS: TFileStream;
begin
  try
    FS := TFileStream.Create(Filename, fmOpenRead);
  except
    Result := -1;
  end;
  if Result <> -1 then Result := FS.Size;
  FS.Free;
end;

Вариант №2
function GetFileSize2(FileName: string): Int64;
var F: TMemoryStream;
begin
  try
    F:=TMemoryStream.Create;
    F.LoadFromFile(FileName);
    Result:=F.Size;
 
 
  finally
    F.Free;
  end;
end;

         for i:=form1.memo1.Lines.Count-1 downto 0 do begin
                                                      try
          if GetFileSize(form1.memo1.Lines[i])>3114000 then form1.Memo1.Lines.Delete(i); //!!
                                                      except
                                                    form1.Memo1.Lines.Delete(i);
                                                    end;
                                                      end;

function GetFileSize2(FileName: string): Int64;
var F: TMemoryStream;
begin
  try
   if FileExists(FileName)=False then begin Result:=99999999; exit; end;
    F:=TMemoryStream.Create;
    F.LoadFromFile(FileName);
    Result:=F.Size;
 
 
  finally
    F.Free;
  end;
end;

 for i:=form1.memo1.Lines.Count-1 downto 0 do if FileExists(form1.memo1.Lines[i])=False then form1.Memo1.Lines.Delete(i);

var
  FileSize:DWORD;
  f:THandle;
begin
 ...
  FileSize:=GetFileSize(f,nil);
  ...
end