Dellphi Memo i Finddialog

Witam otóż wykombinowałem coś takiego ale mi nic mi nie znajduje pomożecie ?

procedure TForm1.Znajd1Click(Sender: TObject);
begin
  FindDialog1.Execute;
end;

end.

procedure TForm1.FindDialog1(Sender: TObject);
var
   nStart, nSelLen : integer;
begin
   nSelLen := Length(FindDialog1.FindText);
   nStart := Pos(FindDialog1.FindText, Memo1.Lines);
   if (nStart > 0) then
   begin
      with Memo1 do
      begin
         SelStart := nStart - 1;
         SelLength := nSelLen;
         SetFocus;
      end;
   end;
end;

To to się w ogóle kompiluje?

Pos(FindDialog1.FindText, Memo1.Lines);

Chyba Memo1.Text...
Poza tym, zacznij lepiej nazywać porządnie komponenty, a nie Memo1, FindDialog1...

@Przemo1990: przeanalizuj sobie kod dołaczony do tego posta i przede wszystkim zacznij czytać kurs z podstawami, bo co chwila masz problem z jakimiś banałami, nie myślisz samodzielnie, nie kombinujesz, tylko od razu pytasz na forum. A to powinna być ostatecznośc jak samodzielnie sprawdzisz wszystkie kombinacje tak aby coś zaczeło działac i co najważniejsze wspomagać się google zanim zapytasz. Ja rozumiem początki, dział Newbie i tym podobne, ale forum powinno się traktować jako pomoc w ostateczności. Nie raz ktoś miał przed Tobą podobny problem, jak coś wyszukać w Memo i zadawał takie pytanie lub opisał to ktoś w taki spsoób, że po znalezieniu w google wszystko powinno być jasne. Trzeba tylko chcieć poszukać samemu.