Как прервать цикл repeat

[demon_1607]

Код: Выделить всё

begin
repeat
fam:=InputBox('Авторизация', 'Введите свои ФИО', '');
if fam='' then MessageDlg('Вы не представились', mtWorning, [mbOk,mbCancel],0);
until fam<>''
end;

Нужно чтобы на клик кнопки Cancel форма закрывалась. Как?

[SergeyS]

break;
прерывает все циклы

[Хыиуду]

Код: Выделить всё

begin
repeat
fam:=InputBox('Авторизация', 'Введите свои ФИО', '');
if fam='' then answer:=MessageDlg('Вы не представились', mtWarning, [mbOk,mbCancel],0);
until (fam<>'') or (answer=mbCancel);
end;

[SergeyS]

Способ предложенный Хыиуду, является более грамотным, с точки зрения культуры программирования

[Blood_Magic]

Способ предложенный Хыиуду, является более грамотным, с точки зрения культуры программирования

грамотный, но я так подозреваю, не отвечает потребностям, т.к. скорее всего по кнопки Cancel нужно завершить программу или еще чего, но ни как не пойди дальше

[Хыиуду]

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