Como moverme con enter a traves de los controles de una aplicacion

[cecam]

Usar (y no tirar:-) en el KeyPress del control:

procedure EnterToTab(Sender:TObject; var Key:char);
begin
   if (Key=#13) then
   begin
     if (Sender is TWinControl) then
     begin
        Key := #0;
        TWinControl(Sender).Perform(WM_NEXTDLGCTL, 0, 0);
     end;
   end;
end;

Saludos!!