Evento OnEnter

[leogobo]

hola,

quiero que al presionar Enter en un edit, me aparezca un mensaje en el mismo.
Utilizo este codigo:

Código Delphi [-]
procedure TForm1.Edit1Enter(Sender: TObject);
begin
   edit1.Text:='Hola';
end;

Pero apenas le doy clic en el edit1 para poner el cursor aparece el mensaje. Ademas este edit no se deja borrar no editar. No quiero esto. Lo que quiero es cuando le de Enter aparezca el mensaje y que pueda escribir mas cosas.

Gracias