Zaokruživanje broja decimala i Windows Beep Zvuk

[ maximus_1 @ 14.09.2005. 13:22 ] @

1.
Napisao sam funkciju za izračunavanje veličine datoteke:

Code:

function GetFileSize(File_Name: String): String;
var
  x: File of Byte;
  Size: String;
const
  KB          = ' KB';
  MB          = ' MB';
begin
try
  AssignFile(x, File_Name);
  Reset(x);

  If FileSize(x) >= 1048576 Then
    Size    := FloatToStr(FileSize(x) / 1048576) + MB
  else
    Size    := FloatToStr(FileSize(x) / 1024) + KB;

  Result  := Size;
finally
  CloseFile(x);
end;
end;

Problem je u tome što mi funkcija vraća rezultat na više od 2 decimale. Kako broj zaokružiti na dvije decimale?

2.
Kada pri unošenju podataka u neki editbox želim potvrditi pritiskom na ENTER ono što sam unio, dodam kod:

Code:

  if key = #13 then
  begin
    **URADIO ONO ŠTO ŽELIM**
  end;

Problem je u tome što dobijem i beep (zvuk) od Windowsa. Kako ga izbjeći?