LabeledEdit.onEnter <-- ayuda

[Dr.Bizarre]

al terminar de tipear caracteres en un TEdit o en TLabeledEdit, quiero presionar enter y llame a un procedimiento:

Código Delphi [-]
procedure TForm1.cambio(Sender: TObject);
begin

  a:=StrToInt(LabeledEdit1.Text);
  Label1.Caption:=IntToStr(a);
  LabeledEdit1.Text:='';
  LabeledEdit1.Visible:=false;
  LabeledEdit2.Visible:=true;
  
end;

cuando lo cargo en el evento OnEnter del TLabeledEdit , todo parece que lo cargara en el OnActivate de la forma.

alguna sugerencia ?