[[white_zombie]]

Hola, prueba de esta forma.

Código Delphi [-]
procedure EstablecerFoco(Formulario : TForm; Control : TWinControl);
begin
   Try
     TWinControl(Formulario.FindComponent(Control.Name)).SetFocus;
   Except
     MessageDlg('No se lozalizo el control ' + Control.Name, mtInformation,[mbOk], 0);
   End;
end;

Un Saludo.