Geht nicht auch:
Delphi-Quellcode:
if pos(richedit1.text,'der durchsuchte text') then
begin
//Was dann passieren soll
end;
Ich bin mir nicht 100%ig sicher, aber bei editfeldern geht es, also von daher würde ich das nehmen. Der Code ist nicht getestet. Hoffe, ich habe mich nicht verschrieben.