[whizzkey]

Добрый день, пишу программку для создания и прохождения тестов суть которой в кратце - Любой желающий создает Тест, который сохраняется ввиде .dat(ввиде одной записи) файла, вписывает туда вопросы, варианты ответов и количество баллов за правильный ответ из Еdit'ов и не выходя из программы имеет возможность посмотреть что у него получилось.

Возникла такая проблема - как блин правильно организовать привязку количества балов к каждому вопросу?
переменные теста я организовываю так:

Код:

const
NQ=100;//максимальное число вопросов
NA=3;//максимальное число ответов

type
  t_Test=record
 QW:array[1..NQ] of String[200]; //массив вопроса
 An:array[1..NQ,1..NA] of String[100];//ответы двумерный массив
 Ra:array[1..NQ] of integer;//правильный ответ
 Bb:integer;//запись баллов за правильный ответ
 zapis_K:byte; //файловая переменная для записи  кол-ва вопросов
 zapis_B_vsego:byte;//файловая переменная для записи кол-ва  баллов
 Res:array [1..NQ] of integer;//результат
   end;
var
 Test:t_Test;
   FTest:File of  t_Test; //файл для создания теста
   n:byte;    //текущий вопрос
   k:byte;     //количество вопросов
   ball:integer;     //баллы
   FileName:String;

Баллы у меня это просто какоето значение(по умолчанию=0), которое при правильном ответе равно

Код:

if RadioButton1.Checked   then begin   //Если правильный 1 ответ то
 Test.RA[n] := 1;      //ему присваивается Радиокнопка 1
 ball:=ball+Strtoint(Edit6.Text);  //и зачисляется количество баллов(подсчет суммы баллов за все вопросы)
 Test.Bb:=ball;

значению Edita6, тут же я записываю значение ball в файл, но когда я считываю информацию из файла

Код:

if Test.RA[n] = 1 then
  RadioButton1.Checked := true;
  Edit6.Text:=IntToStr(Test.Bb);

в едите6 у меня появляется лишь номер записи а не значение
В общем нид хелп!!
P.S. могу выложить исходник если нужно