Как прервать выполнение процедуры

[Dennis777]

До указанных строчек программа выполняет определенные циклы.
Потом идет проверка

if a=3 then begin
bs:=MessageDlg('Вы набрали '+inttostr(countr)+' баллов', mtCustom, [mbOK], 0);
if bs=mrOk then begin
PlaySound (PChar(ExtractFilePath (ParamStr(0)) + 'sounds/common/click.wav'), 0, 0);
Form12.Close;
end;
end;
        inc(a);
end;

Вот как мне сделать так, чтобы если а=3 - прервалась процедура и не выполнялось inc(a)

если ставить Exit после форм12.Клоуз то получится, что прерывается только if a=3 then begin, а мне надо именно процедуру вырубить(

[Sciv]

Во-первых, в каком обработчике это все записано?
Во-вторых:

if a=3 then begin
bs:=MessageDlg('Вы набрали '+inttostr(countr)+' баллов', mtCustom, [mbOK], 0);
if bs=mrOk then begin
PlaySound (PChar(ExtractFilePath (ParamStr(0)) + 'sounds/common/click.wav'), 0, 0);
Form12.Close;
end;
Exit;
end;

не подойдет?

[Аватар]

а мне надо именно процедуру вырубить

А что это такое? Пока сам не уяснишь какие команды должны выполниться, а какие нет при а=3 никто не поможет.

[Dennis777]

Все происходит в
procedure TForm12.Image4Click(Sender: TObject); то бишь по клику на картинку.

В массив добавляется случайное число n такое, чтобы оно не повторялось в массиве и происходит ряд действий, которые в принципе не важны для результата.

Если ставить Exit между эндами, то не всплывает Диалоговое окно...


Ув. Аватар, мне нужно, чтобы, в случае, если a=3 не увеличивалось значение "а", а сразу произошел выход из этой формы, так как в противном случае зависнет цикл.
Короче говоря, как только а=3 нужно закрыть форму, да так, чтобы на ней больше не выполнились никакие процедуры)

[Sciv]

Все происходит в
procedure TForm12.Image4Click(Sender: TObject);

Естественно, у Вас куда Exit ни втыкай - все будет работать неправильно. Так как вы из Form12 закрываете Form12:

if a=3 then begin
bs:=MessageDlg('Вы набрали '+inttostr(countr)+' баллов', mtCustom, [mbOK], 0);
if bs=mrOk then begin
PlaySound (PChar(ExtractFilePath (ParamStr(0)) + 'sounds/common/click.wav'), 0, 0);
Form12.Close;
end;
end;

Если ставить Exit перед выделенной командой - форма не закроется. Если после - форма закроется и не выполнит Exit. Ставьте вместо

[Dennis777]

)) спасибо)