Какое событие присвоить кнопке?(делфи)

[Gunet]

Вот код финддиалога :

Я создал кнопку , создал EDIT1 и компонент FindDialog , у FindDialog такой код :

procedure TForm1.FindDialog1Find(Sender: TObject);
var
i:integer;
begin
 for i:=0 to listbox1.Items.Count-1 do
  if pos(uppercase(Edit1.Text),uppercase(listbox1.Items.Strings[i]))<>0 then
  begin
   listbox1.ItemIndex:=i;
   break
  end
  else
   listbox1.itemindex:=-1;
end;

надо чтобы при нажатии кнопки содержимое listbox'a менялось на то что я ввел в строке EDIT , а если ничего не нашло то ничего не произойдет...

Какое событие назначить кнопке , и что туда вписать ( не обязательно давать код , просто словами скажите )

[ОДИНОЧЕСТВО В СЕТИ]

Какое событие назначить кнопке

Onclick!10символов