[lmikle]

Из "живого" проекта:

Код:

procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  If Key = #13 Then
    If (ActiveControl <> edValues) Then
      Begin
        Key := #0;
        SelectNext(ActiveControl,True,True);
      End;
end;

И ничего не пищит...