[PaHaNjkee]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

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.

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

Код:

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

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

Код:

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

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

Код:

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

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

Код:

1 2 3 4 5 6

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

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