Dateigröße formatieren?

[mlspider]

Hallo,

ich lasse mir die Größe einer Datei wie folgt ermitteln:

Delphi-Quellcode:

function CheckFileSize(aFilename: string): integer;
var
   f: file of Byte;
   size: Longint;
begin
AssignFile(f, aFilename);
Reset(f);
try
   size := FileSize(f);
finally
   CloseFile(f);
end;
Result := size;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit1.Text := (InttoStr(CheckFileSize(Edit2.Text)));
end;

Ich möchte jetzt die Größenangabe formatieren (zb:Angabe in MB). Aber wie?