

Hast aber trotzdem schon Recht! :-P

Code: Alles auswählen
Macro Happy
;-)
EndMacro
Happy End
Code: Alles auswählen
a:=MessageBox(Form1.Handle, Pchar('Benötige Zeit: '+IntToStr(start)+' ms.'), 'MyMsgBox', MB_OK);
Code: Alles auswählen
For n:=1 To 1000 do MessageBox(Form1.Handle, 'Danke!', '', MB_OK);
Code: Alles auswählen
Macro Happy
;-)
EndMacro
Happy End