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