Moverse entre los diferentes controles.

[Acanol]

Muy buenas, me ha costado cerca de una hora(espero no llegar tarde) :$ , pero aqui esta , coloca el siguiente codigo en el evento onkeypress de los componentes.

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 If Key =#45 Then Begin
     keybd_event(16,0,0,0); // SHIFT oprimido
     keybd_event(9,0,0,0); // TAB oprimido
     Keybd_event(16,0,2,0); // Soltar el SHIFT  (NO SE PUEDE OMITIR)
     keybd_event(9,0,2,0); // TAB Released (Puede ser omitido)
     Key := #0
   end;
 if key=#43 then begin
    keybd_event(9,0,0,0); // TAB oprimido
    keybd_event(9,0,2,0); // Soltar el Tab
    Key:=#0;
 end;
end;

Espero que te sirva, si no es esto lo que querias dilo .