Процедура Exit – здійснює вихід із функції або процедури

Процедура Exit в Delphi здійснює вихід із функції або процедури.

Процедура Exit: Вихід із процедури, коли користувач скасовує введення даних

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;