[Delphi] Kilka pytań

Witam jestem nowy na forum i dopiero zaczynam programować w Delphi mam dwa pytania:

1. Jak zrobić kiedy wpisze sie do edit1 trzy znaki przeskoczyć do Edit2 aby tam można było pisać dalej?

procedure TForm1.TimerTimer(Sender: TObject);
var
Present : TDateTime;
Hour, Min, Sek, MSec : Word;
begin
Present := Now;
DecodeTime(Present, Hour, Min, Sek, MSec);
if (Hour = 12) and (Min = 11) and (Sek = 10) then
ShowMessage('Tutaj Text');
end;

Jak w tej procedurze zamiast zdefiniowanych godzin(minut i sekund) pobrać te wartosci z editów?

Wielkie dzieki z góry za wszelaką pomoc.

1. W OnKeyUp Edit1:

if Length(Edit1.Text) = 3 then Edit2.SetFocus

1. http://www.4programmers.net/view_faq.php?id=235

Hour := StrToInt(Edit1.text);
Min := StrToInt(Edit2.text);