delphi实现记事本的查找功能

[ME_YOU]

我在用delphi实现记事本功能，想用FindDialog实现查找功能，但是不知道代码该如何实现，请各位帮帮忙，谢啦！再写了如下代码后不知道该如何进行下去：
var str:string;
m:integer;

if finddialog1.Execute then
if 点击“查找下一个” then //主要是如何实现这个点击“查找下一个”功能 begin
str:=finddialog1.findtext;
m:=Pos(str,memo.text); //用memo实现文本编辑
if m=0 then messagedlg('找不到''+str+''',mtwarning,[mbok],0)
else 其他代码；
end;


现在主要不知道点击“查找下一个”按钮如何实现

[taxi]

这个实现了继续查找功能，只是向下继续查找。
unit MainFrm;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
FindDialog1: TFindDialog;
procedure Button1Click(Sender: TObject);
procedure FindDialog1Find(Sender: TObject);
private
{ Private declarations }
FStartPos: Integer;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
FStartPos := 1;
FindDialog1.Execute;
end;

procedure TForm1.FindDialog1Find(Sender: TObject);
var
ft, s: string;
i: Integer;
begin
ft := FindDialog1.FindText;
s := Copy(Memo1.Text, FStartPos, Length(Memo1.Text));
i := Pos(ft, s);
if i <> 0 then
begin
Memo1.SelStart := FStartPos + i - 2;
Memo1.SelLength := Length(ft);
FStartPos := Memo1.SelStart + Length(ft) + 1;
end;
end;

end.

[ME_YOU]

谢谢啊，代码还是有点问题，不过帮了很大的忙，再次感谢！

[ME_YOU]

能否请教一下，为什么s := Copy(Memo1.Text, FStartPos, Length(Memo1.Text)); 这句总是提示 Missing operator or semicolon

[Seamour]

找完之后记录一下当前偏移量，下次继续从那个位置之后找