Hacer evento Tab en TEdit

[[Lepe]]

Otra solución más siguiendo el ejemplo de egostar

Código Delphi [-]
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
   if Key = 9 then begin // La tecla TAB tiene el código ASCII 9
      if Tedit(Sender).Name = Edit1.Name then
         // pos es el uno
      else if Tedit(Sender).Name = Edit2.Name then
         // pos eso.
   end;
end;

LLegados a este punto, ahora en los demás TEdits, en su evento KeyUp elige el Edit1Keyup, por tanto todos los Tedits compartiran el mismo evento.

Si estas en el edit1, el parámetro Sender será el Edit1, si estas en el Edit32 pues el Sender será el Edit32 ... vamos... el objeto que desencadena el evento.

Saludos