Ein Hinweis, der nicht zur Frage gehört:
Die Sleep-Aufrufe werden immer alle ausgeführt. Wenn du mehrere Anweisungen einem if zuordnen möchtest, musst du das so machen:
Delphi-Quellcode:
if Pos('schritt', AnsiLowerCase(RichEdit1.Lines[i])) > 0 then
begin
Button1.Click;
Sleep(200);
end;
Edit: Der Turbo-Opa macht mich fertig. 