Edit i automatyczne 'przeskakiwanie'

Witam!
Mam Delphi 6 i tworze program w ktorym sa 3 'EDIT-y'
I teraz pytanie do was: Jak zrobić, aby po wpisaniu 2 cyfr w EDIT-cie, kursor 'przeskoczył' do nastepnego EDIT-a ??

no bardzo prosto. w OnChange Edit1 piszesz tak:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Edit1.Text[2] <> '' then
  begin
    Edit2.SetFocus;
  end;
end;

a w OnChange Edit2 piszesz tak:

procedure TForm1.Edit2Change(Sender: TObject);
begin
  if Edit2.Text[2] <> '' then
  begin
    Edit3.SetFocus;
  end;
end;

zaznacz sobie jeszcze w editach MaxLength na 2 i po klopocie..

pozdro.

Oki wielkie THX i jeszcze jedno:
Jak zrobic zeby w tych editach mozna bylo wpisywac tylko cyfry ?

.. A to już przesada - skorzystaj z wyszukiwarki forum...

Oki sorry :-(
I jeszcze jedno zeby nie zakladac nowego tematu (na farum nie znalazlem)
Jak zrobic teby w FileListBox byly wyswietlane TYLKO pliki obrazow (bmp, jpg itp.)??

Moze property Mask?

Mógłbyś jaśniej?? Jestem początkujący ;-)

Sorry, już znalazłem ;-)