[PaHaNjkee]

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

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  value : string;
  lol : Integer;
  lol2 : Integer;

implementation

{$R *.dfm}

begin
  // Спрашиваем у полльзователя ключ
  repeat
    if not InputQuery('Активация программы', 'Пожалуйста, введите ключ диска', value)
    then ShowMessage('Идет онлайн активация, этого делать нельзя!');
  until value <> '';

  //проверяем ключ
  if value='AAAA-AAAA-AAAA-AAAA' then
 lol :=  MessageDlg('Ключ введен правильно! Пользуйтесь на здоровье:)',mtWarning, mbOKCancel, 0) else
 lol2 :=  MessageDlg('Возможно вы ошиблись, попробуйте снова!',mtError, mbOKCancel, 0);

 // Показ выбранной кнопки на переменной 'lol'
  if lol = mrCancel then ?????11111;

  // Показ выбранной кнопки на переменной 'lol2'
  if lol2 = mrCancel then  ??????22222;
  if lol2 = mrOK then ???????33333;
end.

Хочу чтото вставить в этой строке вместо знаков вопроса чтобы при нажатии на кнопку это окошко закрывалось т.е программа прекращала работать

Код:

// Показ выбранной кнопки на переменной 'lol'
  if lol = mrCancel then ?????11111;

тоже самое и с этой строчкой

Код:

  // Показ выбранной кнопки на переменной 'lol2'
  if lol2 = mrCancel then  ??????22222;

ну а с этой строчкой

Код:

  if lol2 = mrOK then ???????33333;

чтобы программа опять возвращало сюда

Код:

begin
  // Спрашиваем у полльзователя ключ
  repeat
    if not InputQuery('Активация программы', 'Пожалуйста, введите ключ диска', value)
    then ShowMessage('Идет онлайн активация, этого делать нельзя!');
  until value <> '';......

Вот и все! Заранее благодарен!