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;