Wort gefunden und markiert!

[Die Muhkuh]

Wo ist nun das Problem?

Ich bin mir nicht sicher, aber ich denke, Du willst das hier erreichen:

Delphi-Quellcode:

procedure TForm1.Timer4Timer(Sender: TObject);
begin
  if SearchForText_AndSelect(RichEdit1, 'Whisper') then
  begin
    label33.caption := 'You Got A Whisper';
    form1.Width := 952;
  end;
end;