Delphi-Quellcode:
//Was hier steht wird gemacht bevor die Message angezeigt wird
ShowMessage('irgendwas');
//Was hier steht wird erst gemacht wenn die Nachricht nicht mehr angezeigt wird
Wenn du das beachtest solltest du die Lösung finden (das ist ja die Aufgabe des Programmierers)