Jetzt muss ich das Delay ja noch an der stelle einfügen wo ich das haben will z.b. hier:
Zitat:
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
i:=0;
REPEAT
begin i++
ShellExecute(Application.Handle, 'open',
PChar('http://wowgarnasus.web-4-free.com'), nil, nil,
SW_ShowNormal);
*** Hier soll das Programm warten****
end; UNTIL i=4
end;