Delphi编记事本的关于查找(Finddialog)

procedure TForm1.FindDialog1Find(Sender: TObject);
var
ii,intTextMax:integer;
begin
intTextMax:=length(Richedit1.Text);//取得文本内容大小
intPos:=richedit1.FindText(finddialog1.FindText,intPos,intTextMax,[stmatchcase]);
if intPos<>-1 then //intPos这个是在接口定义的int初始为0
begin
ii:=length(finddialog1.FindText);
richedit1.SelStart:=intPos;
richedit1.SelLength:=ii;
richedit1.Setfocus;
intPos:=intPos+1;
end
else
begin
showmessage('未找到'+' “ '+finddialog1.FindText+' ” ');
intPos:=0;//从头开始找
end;
end;
我想问下：
1。怎么实现查找后跳转到所找到的位置，上面只能找到(选取)不会跳转，还要自己拉滚动条找.
2。怎么实现向上查找呢? 判断finddialog的Options中的frdown的值后该怎么写呢(这个怎么调用出来判断,我也还不知道)？

---

这告搭个灰常简单,你只要在
RichEdit1.SelLength:=li;
后面升罩加上一行:
RichEdit1.Perform(EM_ScrollCaret,0,0);
就可以实现了.分吵友闹分拿来.

---