Początkujący - pomoc z editami

Witam
Jako początkujący napotkałem taki problem :
Chciałem zrobić coś takiego: iż wpisując w edit1 np Ola chciałbym aby w edit2 wpisało się samoczynnie :) np. Adam. Jak powinien wyglądać taki kod? Wiem że stosuje się if , then ale nie potrafie tego zrobic za każdym razem błąd . Proszę o pomoc

W zdarzeniu OnChange (zakładka Events w Object Insectorze) dla Edit1 wpisz:

  if Edit1.Text = 'Ola' then
  begin
    Edit2.Text := 'Adam';
  end;

O ile oczywiście masz na formatce też Edit2 to zadziała. Ważna jest oczywiście
wielkośc liter wpisanych w Edit1. A i do pytań o podstawy służy dzial "Newbie".

DZIEKI BARDZO

procedure TForm1.Edit1Change(Sender: TObject);
begin
   if CompareText(Edit1.Text,'Ola') = 0 then Edit2.Text := 'Adam' else Edit2.Text := '';
end;

Możemy teraz sobie pisać: OLA, Ola, oLA, ola, olA i wyświetli nam "Adam".
"Adam" zniknie, jeśli dopiszemy byle znak do naszej Oli.

Pozdro. :)