Да или нет

[Пэгги]

Нужно создать программу, где выбирается один из вариантов ответа и далее программа продолжается.
К примеру, если на вопрос "Есть ли выход из комнаты?" отвечают да, то выскакивает следующее "Выйти из комнаты.", а если отвечают нет, то выскакивает такое "Исследовать комнату."

Вот начинала делать.
А потом запуталась.
Помогите пожалуйста.

program laba;

{$APPTYPE CONSOLE}

uses
  Classes,
  SysUtils,
  Forms,
  Controls,
  Graphics,
  Dialogs,
  StdCtrls,
  ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    RadioGroup1: TRadioGroup;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

  { TForm1 }



procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage('Есть ли выход из комнаты?');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
    0:
      Showmessage('Да');
    1:
      Showmessage('Нет')
  else
    Showmessage('Вы не выбрали ответ')
  end;
end;

begin



end.

[min@y™]

{$APPTYPE CONSOLE} само появилось?

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
begin
   k:=MessageDlg('Есть ли выход из комнаты?',mtInformation,[mbYes,mbNo],0);
   If k=6 then
   begin
      k:=MessageDlg('Выйти из комнаты?',mtInformation,[mbYes,mbNo],0);
      If k<>6 then
      begin
         k:=MessageDlg('Исследовать комнату?',mtInformation,[mbYes,mbNo],0);
      end;
   end;
end;

Сойдет?

[Пэгги]

Сообщение от newerow1989

Сойдет?

Спасибо. Так намного лучше, чем то, что сделала я.
А не можете подсказать как вызвать эту процедуру, а то у меня компилятор ругается на то, что делаю я?

[Вадим Мошев]

Покажите код, как вы делаете.

[newerow1989]

Поместить на форму кнопку. Дважды щелнуть по ней. Появится:

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

Записать мой код.

[Пэгги]

Сообщение от Вадим Мошев

Покажите код, как вы делаете.

Я скинула все что у меня есть. У меня не получается вызвать процедуру.

[newerow1989]

вызвать процедуру

это

Button1Click(nil);

[Пэгги]

Сообщение от newerow1989

Поместить на форму кнопку. Дважды щелкнуть по ней.

Не могли бы вы немного пояснить как сделать в Делфи кнопку? Если вам не сложно конечно. Или дать ссылку, где это объясняется. Просто в университете еще не объясняли, а те источники, что я прочла были мне немного непонятны.

[Пэгги]

Сообщение от newerow1989

это

Button1Click(nil);

Выдает вот такую ошибку: E2076 This form of method call only allowed for class methods

Сообщение от newerow1989

это

Button1Click(nil);

Спасибо вам большое. Я уже разобралась. У меня в самом начале небольшая ошибка была.