الانتقال بين مكونات edit بعد كتابة عدد بطول معين

[format82]

في الحدث Onkeypress ل edit1

اكتب الكود التالي

كود :

if Length(Edit1.Text)=4 then begin key:=#0; Edit2.SetFocus; end;