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 if Tedit(Sender).Name = Edit1.Name then
else if Tedit(Sender).Name = Edit2.Name then
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