Text durchsuchen (ohne FindDialog)

[blubber443]

ich hab das auch versucht, hier mein code

Delphi-Quellcode:

procedure TForm2.Edit1Change(Sender: TObject);
var i: integer;
var a: integer;
var s: string;
var s2: string;
begin
  s:=Edit1.Text;
  s2:='';
  for i := 0 to Length(RichEdit1.Text) do
  begin
    for a := 0 to Length(s) do
    begin
      s2:=s2+RichEdit1.Text[i+a];
    end;
    if s=s2 then
    begin
      RichEdit1.SelStart:=i;
      RichEdit1.SelLength:=a;
    end;

  end;

end;

jedoch geht das nicht ganz, ich versteh auch nicht wirklich wieso,
der zeigt einfach nix an

PS: ich hab das so gemacht dass der beim schreiben gleich überprüfen soll