Пример кода : Выход из процедуры, когда пользователь отменяет ввод данных
begin // Спрашиваем у пользователя
его имя
ShowMessage('Name = '+AskForName);
end; // Спрашиваем у пользователя его имя и фамилию
function TForm1.AskForName: string;
var
firstName, secondName : string;
begin
Result := 'Lazy person';
repeat
if not InputQuery('Test program', 'Имя :', firstName)
then Exit;
if not InputQuery('Test program', 'Фамилия :', secondName)
then Exit;
until (firstName <> '') or (secondName <> '');
Result := firstName + ' ' + secondName;
end;
Если пользователь отменит превый или второй диалог, то диалог ShowMessage выдаст: