salto entre campos

[[oscarac]]

Agregue un Label y un timer para que cada segundo me diga en que control estoy
cuando presiono la tecla 2 y enter
el foco cambia

pero cuando en el edit1 coloco el numero 1 y enter aparece un mensaje de error

medio loco si?

alguien puede corroborar que sucede?
no quiero tener un mal concepto de delphi.

Código Delphi [-]
procedure TForm1.tmr1Timer(Sender: TObject);
begin
  lbl1.caption := ActiveControl.Name;
end;