TEdit: Eingabe an nächstes Editfeld weitergeben

[nachti1505]

Code:

procedure OnKeyPress(...)
var NextEdt: TEdit;
begin
  if length(Edit.Text) = Edit.MaxLength then begin
    NextEdt := LocateNextEdit;
    NextEdt.SelStart := length(NextEdt.Text);
    NextEdt.Text := NextEdt.Text + Key;
  end;
end;

Wobei noch darauf zu achten wäre, ob NextEdt auch schon maximal gefüllt ist.