How to Avoid a Beep on Enter KeyPress
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key = #13) then
key := #0; //Causes to avoid beep.
end;