mehrere MessageDlgPos auf einmal

[about_blank]

Guten Nachmittag erstmals,

also:

Ich will ein Kleines Programm schreiben, dann bei einem Klick immer MessageDlgPos ausgibts.

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
randomize;
repeat
      
      MessageDlgPos('Test', mtInformation, [], 0, random(Screen.Width), random(Screen.Height));
     
      MessageDlgPos('Test', mtError, [], 0, random(Screen.Width), random(Screen.Height));
    
      MessageDlgPos('Test', mtWarning, [], 0, random(Screen.Width), random(Screen.Height));
    
      MessageDlgPos('Test', mtConfirmation, [], 0, random(Screen.Width), random(Screen.Height));

until False ;

end;

Also so, dass man sie nicht schleißen muss/soll.


Könntet ihr mir vllt weiter helfen.

Vielen Dank im Voraus.

mfg.