procedure TForm1.EditChange(Sender: TObject); begin if Length(TEdit(Sender).Text) = 10 then Perform(WM_NEXTDLGCTL, 0, 0); end;@+
//evenement OnChange de edit1 procedure TForm1.EditOnChange(Sender: TObject); begin if Length(edit1.Text) = 10 then // si la longueur de l'edit = 10 Edit2.SetFocus; // alors place le curseur dans le edit suivant end;