ГЛАВНЫЙ КУСОК КОДА
procedure TMainForm.testClick(Sender: TObject);
var name i: integer;
p:byte;
begin
Timer1.Enabled := True;
timer1.interval:=1000;
i:=i+1;
if i=10 then
begin
if radiobutton3.Checked then
p:=p+1;
if radiobutton8.Checked then
p:=p+1;
if radiobutton11.Checked then
p:=p+1;
if radiobutton16.Checked then
p:=p+1;
if radiobutton18.Checked then
p:=p+1;
if radiobutton24.Checked then
p:=p+1;
if radiobutton27.Checked then
p:=p+1;
if radiobutton29.Checked then
p:=p+1;
if radiobutton36.Checked then
p:=p+1;
if radiobutton37.Checked then
p:=p+1;
if radiobutton41.Checked then
p:=p+1;
if radiobutton47.Checked then
p:=p+1;
RadioGroup1.Enabled := False;
RadioGroup2.Enabled := False;
RadioGroup3.Enabled := False;
RadioGroup4.Enabled := False;
RadioGroup5.Enabled := False;
RadioGroup6.Enabled := False;
RadioGroup7.Enabled := False;
RadioGroup8.Enabled := False;
RadioGroup9.Enabled := False;
RadioGroup10.Enabled := False;
RadioGroup11.Enabled := False;
RadioGroup12.Enabled := False;
application.messagebox('Время вышло!','Ошибка',0);
Timer1.Destroy;
end;
end;
я написал программу компайл проходит, но через 10 сек меседж бокс не появляется...
