Replacedialog

Hvordan får man replacedialog til at virke??????

Sådan ser min kode ud:

procedure TForm1.ReplaceDialog1Find (Sender: TObject);
var
SelPos, SPos, SLen, TextLength: Integer;
SearchString : string;
begin
with TReplaceDialog(Sender) do begin
TextLength:=Length(RichEdit1.Lines.Text);

SPos:=0;
SLen:=RichEdit1.GetTextLen;

SearchString := Copy(RichEdit1.Lines.Text,
SPos + SLen + 1,
TextLength - SLen + 1);

SelPos := Pos(FindText, SearchString);
if SelPos > 0 then begin
RichEdit1.SelStart := (SelPos - 1) + (SPos + SLen);
RichEdit1.SelLength := Length(FindText);
RichEdit1.SelText := ReplaceText;
end
else MessageDlg('Kunne ikke finde "' + FindText +
'" i RichEdit1.', mtError, [mbOk], 0);
end;
end;[Redigeret d. 15/02-03 08:19:06 af Decko]