проблема с showmessage

[saltonik]

Здравствуйте! Помогите плиииз: когда выходит шоумессидж, ок нужно нажимать неск раз чтобы окошко мессиджа закрылось. в чем ошибка.

procedure TForm2.Timer3Timer(Sender: TObject);
begin
       shape1.left:= shape1.left+k;
       shape2.top:= shape2.top-l;
if shape1.left+shape1.width > ostput then
begin
timer3.Enabled:=false; timer4.Enabled:=false;  timer1.Enabled:=false;
end;
 if ((shape1.Left+shape1.Width)>shape2.Left) and (shape2.top< shape1.top+shape1.height)
 then
 begin
case i of
1: p:='ÊÎËIÊ';
2: p:='ÊÎËIÊ';
3: p:='ÊÎËIÊ';
4: p:='ÊÎËIÊ';
5: p:='ÆÀßÓ ÆÓÐÃIÍØI';
 END;
 p:= 'Ñîãûï êåòó îðûíäàëàäû! Åðåæåíi áóçóøû - '+#13#10+p;
 showmessage(p);
 end;
end;

[Наки]

Скорее всего сообщение выходит несколько раз из-за того, что ты прописываешь его вывод в обработчике события OnTimer. То есть получается, что несколько раз подряд через заданный интервал времени таймера Timer3 не выполняется условие if shape1.left+shape1.width > ostput и выполняется if ((shape1.Left+shape1.Width)>shape2. Left) and (shape2.top< shape1.top+shape1.height), в результате чего собственно и выводится сообщение.
Точно посоветовать, что делать, не могу, т.к. не знаю, как в целом программа работает.
Попробуй после showmessage(p); прописать Timer3.Enabled:=false;. Может, поможет...

[saltonik]

спасибки получилось. оказывается end; надо не после timer3.enabled:= false; a после showmessage