[Javier13]

Estoy usando la funtion FileSize

Código Delphi [-]
function FileSize(const aFilename: String): Int64;
var
  info: TWin32FileAttributeData;
begin
  result := -1;

  if NOT GetFileAttributesEx(PWideChar(aFileName), GetFileExInfoStandard, @info) then
    EXIT;

  result := Int64(info.nFileSizeLow) or Int64(info.nFileSizeHigh shl 32);
end;

Aquí subo el archivo y mando mandar la function

Código Delphi [-]
procedure TForm_Empleados.btnImportarClick(Sender: TObject);
var
  Peso : Int64;
begin
  inherited;
  pdDoc.InitialDir := GetCurrentdir();
  pdDoc.Execute;
  try
    edDocumento.Picture.LoadFromFile(pdDoc.FileName);
  except
  end;
  Peso:=FileSize(pdDoc.FileName);
end;

pero me marca error incompatible types no se si me puedas ayudar a corregir el código