procedure DisableProcessWindowsGhosting;
// Этот метод отключает ситуацию, когда модальное окно оказывается позади другого
// Подробнее здесь: http://groups.google.com/group/borland.public.delphi.language.objectpascal/browse_thread/thread/ad652db00d31ae95/eb41d743d0c9ee88?lnk=st&q=DisableProcessWindowsGhosting&rnum=5#
var
   DisableProcessWindowsGhostingImp: procedure;
begin
  @DisableProcessWindowsGhostingImp := GetProcAddress(GetModuleHandle('user32.dll'), 'DisableProcessWindowsGhosting');
  if (@DisableProcessWindowsGhostingImp <> nil) then
    DisableProcessWindowsGhostingImp;
end;