sacado de Trucomanía (ver truco 515)
Código:
procedure TForm1.Button1Click(Sender: TObject);
function cuantosbytes(archivo: string): string;
var
FHandle: integer;
begin
FHandle := FileOpen(archivo, 0);
try
Result := floattostr(getfilesize(FHandle,nil));
finally
FileClose(FHandle);
end;
end;
begin
Caption:=cuantosbytes('Mi_Archivo');
end;