Как сделать так, чтобы в форме вставлялся отдельно текст вопроса и варианты ответов?

var
  Form1: TForm1;
  List: TStringList;
  vop: Integer; //номер вопроса
  polotv, otrotv: Integer; //положительный, отрицательный ответ
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  //включаем кнопку ответ
  Button2.Enabled := True;
 
  //выключаем кнопку далее
  Button1.Enabled := False;
 
  //показываем номер вопроса
  inc(vop);
  GroupBox1.Caption := 'Вопрос - ' + IntToStr(vop);
  StatusBar1.SimpleText := '';
 
  case vop of
    1:
      begin
        //правильный ответ здесь - 2
        RadioButton1.Caption := List[1];
        RadioButton2.Caption := List[2];
        RadioButton3.Caption := List[3];
        Label1.Caption := List[4];
        Image1.Picture.LoadFromFile('picture\pdd_1.jpg');
      end;
    2:
      begin
        //правильный ответ здесь - 2
        RadioButton1.Caption := List[6];
        RadioButton2.Caption := List[7];
        RadioButton3.Caption := List[8];
        Label1.Caption := List[9];
        Image1.Picture.LoadFromFile('picture\pdd_2.jpg');
      end;
    3:
      begin
        //правильный ответ здесь - 3
        RadioButton1.Caption := List[11];
        RadioButton2.Caption := List[12];
        RadioButton3.Caption := List[13];
        Label1.Caption := List[14];
        Image1.Picture.LoadFromFile('picture\pdd_3.jpg');
      end;
    4:
      begin
        //правильный ответ здесь - 3
        RadioButton1.Caption := List[16];
        RadioButton2.Caption := List[17];
        RadioButton3.Caption := List[18];
        Label1.Caption := List[19];
        Image1.Picture.LoadFromFile('picture\pdd_4.jpg');
      end;
    5:
      begin
        //правильный ответ здесь - 1
        RadioButton1.Caption := List[21];
        RadioButton2.Caption := List[22];
        RadioButton3.Caption := List[23];
        Label1.Caption := List[24];
        Image1.Picture.LoadFromFile('picture\pdd_5.jpg');
      end;
 
    6:
      begin
         MessageBox(Handle, PAnsiChar('Тест закончен, правильных ответов '
          + Inttostr(polotv) + ' неправильных '+ Inttostr(otrotv)), 'ПДД', MB_OK);
        Close;
      end;
  end;
 
  RadioButton1.Checked := False;
  RadioButton2.Checked := False;
  RadioButton3.Checked := False;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  List := TStringList.Create;
  List.LoadFromFile('ekzamen.txt');
  Button1.Click; //грузим сразу первый вопрос
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //проверяем ответил ли пользователь
  if not (RadioButton1.Checked or RadioButton2.Checked or RadioButton3.Checked)
    then
  begin
    MessageBox(Handle, 'Вы не ответили на вопрос.', 'ПДД', MB_OK);
    Exit; //вопрос не отвечен, сделаем выход
  end;
 
  //включаем кнопку далее
  Button1.Enabled := True;
 
  //выключаем кнопку ответ
  Button2.Enabled := False;
 
  if vop = 1 then
  begin
    StatusBar1.SimpleText := 'Правильный ответ: ' + RadioButton2.Caption;
    if RadioButton2.Checked then
    begin
      Image2.Picture.LoadFromFile('picture\res_yes.bmp');
      polotv := polotv + 1;
    end
    else
    begin
      Image2.Picture.LoadFromFile('picture\res_no.bmp');
      otrotv := otrotv + 1;
    end;
  end;
 
  if vop = 2 then
  begin
    StatusBar1.SimpleText := 'Правильный ответ: ' + RadioButton3.Caption;
    if RadioButton3.Checked then
    begin
      Image3.Picture.LoadFromFile('picture\res_yes.bmp');
      polotv := polotv + 1;
    end
    else
    begin
      Image3.Picture.LoadFromFile('picture\res_no.bmp');
      otrotv := otrotv + 1;
    end;
  end;
 
  if vop = 3 then
  begin
    StatusBar1.SimpleText := 'Правильный ответ: ' + RadioButton2.Caption;
    if RadioButton2.Checked then
    begin
      Image4.Picture.LoadFromFile('picture\res_yes.bmp');
      polotv := polotv + 1;
    end
    else
    begin
      Image4.Picture.LoadFromFile('picture\res_no.bmp');
      otrotv := otrotv + 1;
    end;
  end;
 
  if vop = 4 then
  begin
    StatusBar1.SimpleText := 'Правильный ответ: ' + RadioButton3.Caption;
    if RadioButton3.Checked then
    begin
      Image5.Picture.LoadFromFile('picture\res_yes.bmp');
      polotv := polotv + 1;
    end
    else
    begin
      Image5.Picture.LoadFromFile('picture\res_no.bmp');
      otrotv := otrotv + 1;
    end;
  end;
 
  if vop = 5 then
  begin
    StatusBar1.SimpleText := 'Правильный ответ: ' + RadioButton1.Caption;
    if RadioButton1.Checked then
    begin
      Image6.Picture.LoadFromFile('picture\res_yes.bmp');
      polotv := polotv + 1;
    end
    else
    begin
      Image6.Picture.LoadFromFile('picture\res_no.bmp');
      otrotv := otrotv + 1;
    end;
  end;
end;