Probleme mit SearchDialog

[snapman]

Hallo,
habe mich durch verschiedene SearchDialog Beispiele gearbeitet und so und hab nun folgende Lösung:

Delphi-Quellcode:

 var
  x: integer;
begin

x:=memo1.FindText(SearchFind1.Dialog.FindText,0,memo1.GetTextLen,[stWholeWord,
                                       stMatchCase]);

SendMessage(memo1.Handle,EM_SETSEL,x,x+Length(SearchFind1.Dialog.FindText));
    memo1.Refresh;

Gibt auch andere aber die gehen aufs gleiche heraus.
Das Problem: Die Textstelle wird zwar markiert, aber erst nachdem dich den SearchDialog schliesse..was ja aber nichtso sein soll, der Button heisst ja nicht umsonst WEITERsuchen.
Und zweitens scrollt das Memo nicht automatisch dahin, wo der Text ist.

Wisst ihr wie ich das lösen kann?