Mehrere if schleifen hintereinander.

[Dave_lernt_Delphi]

hey ihr Delphi-Experten,
ich habe hier folgenden Code:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) >= 1 then Edit2.SetFocus;
if Length(Edit2.Text) >= 4 then Edit3.SetFocus;
if Length(Edit3.Text) >= 4 then Edit4.SetFocus;
if Length(Edit4.Text) >= 4 then bt1.SetFocus;
end;

end.

Ich habe also 4 Editierfelder: Wenn im ersten Feld eine Zahl steht soll 'die Maus' (kp wie man das nennt) in das zweite springen,
wenn im zweiten Feld vier zahlen stehen soll 'die Maus' ins dritte feld springen... usw. zuletzt das mit dem 4. Feld, danach soll auf den Button (bt1) gesprungen werden... was muss ich dann an dem Code verändern?
Euer Dave