ставишь на таймер:
var
h: HWND;
begin
H:=GetForegroundWindow;
if H<>Handle then
begin
SendMessage(H,WM_CLOSE,0,0); //можно и WM_DESTOY
SetForegroundWindow(Handle);
end;
end;