string durchsuchen und tipps zu while + for-schleifen

[delphi-n]

Delphi-Quellcode:

procedure TForm2.Button5Click(Sender: TObject);
var i:integer;
s:string;
begin
i:=0;

while i<RichEdit1.Lines.Count do
begin
   sleep(100);
  S := RichEdit1.Lines[i];
  Button5.Caption:=S;

if Pos('schritt', AnsiLowerCase(S)) > 0 then
begin
 Button1.Click;
 i:=i+1;
 break;
 end;
if Pos('hallo', AnsiLowerCase(S)) > 0 then
begin
 Button3.Click;
 i:=i+1;
 break;
 end;




end;
end;

das erste macht er, beim zweiten hört er auf