>>400
ごめんなさい最初からそうすれば良かったですね。

procedure TForm1.Button1Click(Sender: TObject);
//検索（changeはTRichEditです）
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
with change do
begin
if SelLength <> 0 then
StartPos := SelStart + SelLength
else
StartPos := 0;
ToEnd := Length(Text) - StartPos;
FoundAt := FindText(Edit1.Text, StartPos, ToEnd, [stMatchCase]);
if FoundAt <> -1 then
begin
SetFocus;
SelStart := FoundAt;
SelLength := Length(Edit1.Text);
perform(EM_SCROLLCARET,0,0);
end;
end;
end;
こんなんです。ボタン押していって、最後にきたら最初に戻るってやりたいんです。
どうでしょか？