1. Benutze biutte die Delphi-Tags
2. Ohne Code-einrückung schwer zu erkennen -.-
3. i++ gibt es in delphi nicht! Benutze
inc(i);
oder
i:=i+1;
4. Meiner meinung nach kann man
URL's nicht mit ShellExecute aufrufen (Lieber Browser damit oeffnen mit parameter als
URL)
5. Ist es in diesem Falle unnötig Delay als procedure von TForm1 zu vereinbaren
6. Zu deinem Problem: Ich sehe da nirgens ein StopDelay. Du kannst eine Boolsche Variable nehmen und diese bei Buttonklick o.ä. auf true setzen und diese bedingung (wie oben beschrieben) bei der abbruchbedingung des Delay mit einbauen.