Tamaño de archivo

[__cadetill]

sacado de Trucomanía (ver truco 515)

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;