Это звук издаёт MS Windows при получениии сообщения о нажатии клавиши по которой ничего не делается ... в лоб решить просто ...
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
Key := #0;
end;
А ещё лучше по вводу перехродить просто на другой контрол
procedure Edit.OnKeyPress(Sender: TObject; var Key: Char)
begin
if Key = #13 then
begin
TWinControl(Sender).SelectNext(TWinControl(Sender), true, true);
Key := #0;
end;
end;
или
procedure Edit.OnKeyPress(Sender: TObject; var Key: Char)
begin
if Key = #13 then
begin
FocusControl(FindNextControl(ActiveControl, true, true, false));
Key := #0;
end;
end;