В Делфи7. Загвоздка с меседжбоксами!

Оба Меседжбокса в процедурах таймеров (2 таймера) сначала при движении мыши выскакивает первый меседж, после если нажимается ОК, таймер первого меседжа выкл., 2й таймер вкл. и соответсвенно выскакивает 2й меседж, но как сделать чтобы не несколько раз клацать на кнопку ОК, а с первого клика условие выполнялось привожу листинг 1го таймера: procedure TForm1.Timer1Timer(Sender: TObject); var foo: TPoint; foo1: TPoint; Xfoo: string; Yfoo: string; Xfoo1: string; Yfoo1: string; X : string; q :integer; begin GetCursorPos(foo); Xfoo := IntToStr(foo.X); Yfoo := IntToStr(foo.Y); sleep(1); GetCursorPos(foo1); While (foo.X<>foo1.X) or (foo.Y<>foo1.Y) do begin X:='Ìûøü áûëà ïåðåäâèíóòà â ïîëîæåíèå X= '+ Xfoo +';'+' Y= '+ Yfoo +';'+ ' óñòàíîâèòü äðàéâåð äëÿ íîâîé êîíôèãóðàöèè? (ïîòðåáóåòñÿ ïåðåçàïóñê)'; if Application.MessageBox(PChar(x),'Ñèñòåìíîå ñîîáùåíèå WINDOWS' ,MB_OKCANCEL+MB_ICONEXCLAMATION)= IDOK then q:=1; repeat Application.MessageBox(PChar(x),'Ñèñòåìíîå ñîîáùåíèå WINDOWS' ,MB_OKCANCEL+MB_ICONEXCLAMATION) until q=1; if q=1 then begin Timer1.Enabled:=False; Timer2.Enabled:=True; end; end; end; и еще как сделать чтобы окна меседжей были всегда сверху (просто меседж без апликэйшен не идет)?