[Kirvisniemi]

Ну хорошо, хотите с модальными окнами - пожалуйста :-)

CREATE(wndHost);
FOR i:=1 to 100 DO
   wndHost.SendKeys('{ESC}');
wndHost.SendKeys('%{F4}');