TECLA <ENTER> en TEdit

[inetplus]

Estuve investigando sobre el tema y de esta forma es solucionable, pero no dentro del evento OnKeyPress:


procedure TFCTarjetas.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;
end;



Procedure TFCTarjetas.AppMessage(var Msg: TMSg; Var Handled:Boolean);
var
actual : TWincontrol;
begin
if Msg.message = WM_RETURN then
begin

Actual := Screen.ActiveControl;
if Actual is TCustomEdit then
.....

El problema es que aqui no puedo controlar un TEdit en particular.

un saludo y Gracias