[Lazarus-es] pasar controles con enter

[Paola Bruccoleri]

Hola..
en aquellas épocas de delphi, en el evento 
onkeypress de todos los forms, ejecutaba este evento:
      EnterTabs (Key, self);

donde, en una unit de funciones tengo esto:

type
   TMiClase = class(TWinControl);

procedure EnterTabs(Key: char; Form: TForm);
begin
      if (key =  #13) and not(Form.ActiveControl is TButton) then
         begin
             TMiClase(Form).SelectNext(Form.ActiveControl, True, True);
             Key := #0;
         end;
end;

no me está funcionando... quizás por error mío.. 
aunque al compilar me salta solo este warning:
funciones.pas(22,13) Warning: Class types "TForm" 
and "TMiClase" are not related

quisiera saber si quizás hay alguna otra forma de hacerlo aquí..
chauuuuuuuuuuuu


=======================
A/P Paola Bruccoleri Arrambide
San José de Mayo - San José
URUGUAY
Usuario Linux Counter: #353833 (desde 29-04-04)
Blog: http://paolabruccoleri.reducativa.com
Wiki: http://wiki.reducativa.com
Material sobre las XO: 
http://www.reducativa.com/wiki/index.php?title=Proyecto_OLPC_-_Plan_Ceibal
Cartillas XO Sugar 8.2: 
http://www.reducativa.com/wiki/index.php?title=Cartillas_sobre_uso_de_la_XO

Visita el Portal Educativo
http://www.reducativa.com.uy