Как быть дальше?

[OK_Kam]

Мне нужно сделать тест (да понимаю избитая тема), но среди того сто есть на этом форуме я не нашла. Короче, Есть txt файл, в котором 1-я строчка вопрос, 2 - 1-ый вариант ответа, 3- 0 или 1(флажок верного ответа), и т.д. Всего 10 вопросов. Что сделала: форма, на ней появляются вопросы, когда вопросы заканчиваются выходит ошибка. Что нужно: конечно же подсчет баллов. Есть соображения?

[Neeter]

Хех, смотрите как вы загружаете файл:

f.LoadFromFile('D:\для дипломников\Лысенко\Проект\Vopr.txt');

А если он не существует? У меня например нет на компьютере таких каталогов.
Потом не onActivate использовать надо, а onShow
Кароче, вот весь ваш код измененный до неузнаваемости:

unit Unit2;

interface

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

type
  TTestForm = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TestForm: TTestForm;
  nVopr:integer;
  nOtv1:integer;
  nOtv2:integer;
  nOtv3:integer;
  f:TStrings; //Переменная типа объект TStringList.
  balls: byte;//Общее кол-во набранных баллов
  bal: byte;  //Индекс правильного балла

implementation

{$R *.dfm}

procedure TTestForm.FormShow(Sender: TObject);
begin
 balls := 0;
 RadioButton1.Checked := true;
 RadioButton2.Checked := false;
 RadioButton3.Checked := false;

 if FileExists(ExtractFilePath(ParamStr(0)) + 'Vopr.txt') then
 begin
  nVopr:=0;
  nOtv1:=1;
  nOtv2:=3;
  nOtv3:=5;
  f:= TStringList.Create();
  try
   f.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Vopr.txt');
   Label4.Caption:=f.Strings[nVopr];
   Label1.Caption:=f.Strings[nOtv1];
   Label2.Caption:=f.Strings[nOtv2];
   Label3.Caption:=f.Strings[nOtv3];
   if f.Strings[nOtv1 + 1] = ',1' then
    bal := 1
   else if f.Strings[nOtv2 + 1] = ',1' then
    bal := 2
   else if f.Strings[nOtv3 + 1] = ',1' then
    bal := 3;
  finally
   f.Free;
  end;
 end
 else
  ShowMessage('Файл не найден');
end;

procedure TTestForm.Button1Click(Sender: TObject);
begin
 if Button1.Caption = 'На начало' then
 begin
  RadioButton1.Checked := true;
  RadioButton2.Checked := false;
  RadioButton3.Checked := false;

  balls := 0;
  Button1.Caption := 'Далее';
  nVopr:=0;
  nOtv1:=1;
  nOtv2:=3;
  nOtv3:=5;
  f:= TStringList.Create();

  try
   f.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Vopr.txt');
   Label4.Caption:=f.Strings[nVopr];
   Label1.Caption:=f.Strings[nOtv1];
   Label2.Caption:=f.Strings[nOtv2];
   Label3.Caption:=f.Strings[nOtv3];
  finally
   f.Free;
  end;
 end
 else
 begin
  if FileExists(ExtractFilePath(ParamStr(0)) + 'Vopr.txt') then
  begin
   if (FindComponent('RadioButton' + IntToStr(bal)) as TRadioButton).Checked then
    inc(balls);

   RadioButton1.Checked := true;
   RadioButton2.Checked := false;
   RadioButton3.Checked := false;

   nVopr:=nVopr+7;
   nOtv1:=nOtv1+7;
   nOtv2:=nOtv2+7;
   nOtv3:=nOtv3+7;
   f:= TStringList.Create();

   try
    f.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Vopr.txt');
    if nVopr < f.Count then
    begin
     Label4.Caption:=f.Strings[nVopr];
     Label1.Caption:=f.Strings[nOtv1];
     Label2.Caption:=f.Strings[nOtv2];
     Label3.Caption:=f.Strings[nOtv3];
     if f.Strings[nOtv1 + 1] = ',1' then
      bal := 1
     else if f.Strings[nOtv2 + 1] = ',1' then
      bal := 2
     else if f.Strings[nOtv3 + 1] = ',1' then
      bal := 3;
    end
    else
    begin
     ShowMessage('Вы набрали ' + IntToStr(balls) + ' баллов');
     Button1.Caption := 'На начало';
    end;
   finally
    f.Free;
   end;
  end;
 end;
end;

end.

[OK_Kam]

Спасибо большое! Не думала, что так быстро кто-то ответит. А если у меня будет несколько txt-файлов с вопросами (другие темы). Как сделать, чтобы на стартовой форме был КомбоБокс для выбора темы теста?

[Neeter]

Перетащите на первую форму Combobox и измените свойство Items так, чтобы элементы были равны именам текстовых файлов (только без расширения)
Пример:

Vopr
Vopr2

Значит в директории программы должны быть два текстовых файла
Vopr.txt
Vopr2.txt

Дальше создаете во второй форме в секции public переменную:

  public
    { Public declarations }
    VoprFileName: string;
  end;

Заменяете код при клике на кнопку Старт в первой форме:

procedure TForm1.Button1Click(Sender: TObject);
begin
 TestForm.VoprFileName := ComboBox1.Text;
 TestForm.Show;
end;

И все строчки:

if FileExists(ExtractFilePath(ParamStr(0)) + 'Vopr.txt') then
//и
f.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Vopr.txt');

Заменяете на:

if FileExists(ExtractFilePath(ParamStr(0)) + VoprFileName + '.txt') then
//и
f.LoadFromFile(ExtractFilePath(ParamStr(0)) + VoprFileName + '.txt');