Как создать обычный тест в Делфи?

[Солби]

Помогите пожалуйста.
Я совсем не понимаю в программировании.
Мне нужно составить обычный тест в Делфи.
Что бы была проверка знаний
вопрос и несколько вариантов ответа
пусть будет 6 вопросов и по 3 варианта ответа
что мне нужно для этого сделать?
и как будет выглядеть программа?
Помогите пожалуйста

[whatever]

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

Я совсем не понимаю в программировании.

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

что мне нужно для этого сделать?

С одной стороны радует, что хоть кто-то хочет сделать сам. С другой - даже не понятно, чем тут можно помочь, кроме как написать за тебя.

Ладно, подскажу направление.
1) Создаешь в дэлфи VCL form application.
2) На форму кидаешь StaticText (вопрос) и radiogroup(варианты ответов)
3) У statictext редактируешь свойство Caption (пишешь вопрос), у radiogroup свойство items (в каждой строке пишешь ответы).
4) Повторяешь шаги 2) и 3) необходимое количество раз (в твоем случае 6 вопросов - 6 повторений).
5) Кидаешь на форму кнопку (TButton), меняшь свойство caption (то, что на кнопке будет написано)
6) Делаешь двойной щелчек по кнопке. Далее пишешь программу:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    StaticText1: TStaticText; // для примера кинул на форму только один StaticText и один RadioGroup. 
                                       //Ты кидаешь 6 штук того и другого, иначе приведенный ниже код не будет работать.
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  answers:array[0..5]of boolean; // 0,1,2,3,4,5 - 6 вопросов, 6 ответов.

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  count,i:integer;
begin
  if radiogroup1.ItemIndex=1 then     //обращаю внимание на то, что нумерация начинается с 0, т.е. правильный ответ во второй строчке
    answers[1]:=true
  else
    answers[1]:=false;


  //здесь пишешь для остальных вопросов


  count:=0;
  for i:=0 to 5 do
    if answers[i] then
      inc(count);

  showmessage('Вы ответили верно на '+inttostr(count)+' из 6ти вопросов');


end;

end.

Конечно я бы делал подругому, но, учитывая вторую строчку в твоем сообщении, рекомендую пока остановиться на этом.