Hast du dir den Code von Manuel genau angesehen? Er hat ein zusätzliches "begin" und "end" eingefügt. Dann werden beide Anweisungen nur dann ausgeführt, wenn die if-Abfrage zutrifft.
Dein bisheriger Code wird so interpretiert:
Delphi-Quellcode:
procedure TForm1.Timer4Timer(Sender: TObject);
begin
if SearchForText_AndSelect(RichEdit1, 'Whisper') then
begin
label33.caption := 'You Got A Whisper';
end;
form1.Width := 952; // wird immer ausgeführt, ob "if" zutrifft oder nicht
end;
Grüße, Matze