Имя файла теста надо указать в командной строке запуска программы.

[ДениC]

Procedure TForm8.ResetForm;
begin // сделать невидимыми все метки и радиокнопки

     Label1.Visible:=FALSE;
     Label1.caption:='';
     Label1.width:=ClientWidth-Label1.left-5;
     RadioButton1.Visible:=FALSE;

     Label2.Visible:=FALSE;
     Label2.caption:='';
     Label2.width:=ClientWidth-Label2.left-5;
     RadioButton2.Visible:=FALSE;

     Label3.Visible:=FALSE;
     Label3.caption:='';
     Label3.width:=ClientWidth-Label3.left-5;
     RadioButton3.Visible:=FALSE;

     Label4.Visible:=FALSE;
     Label4.caption:='';
     Label4.width:=ClientWidth-Label4.left-5;
     RadioButton4.Visible:=FALSE;

     Label5.width:=ClientWidth-Label5.left-5;

     Image1.Visible:=FALSE;
end;

// определение достигнутого уровня
procedure TForm8.Itog;
  var
   i:integer;
   buf:string;
  begin
   buf:='';
   buf:='Результаты тестирования'+ #13
		+'Всего баллов: '+ IntToStr(summa);
   i:=1;
   while (summa < level[i]) and (i<N_LEV) do
         i:=i+1;
   buf:=buf+ #13+mes[i];
   Label5.Top:=20;
   Label5.caption:=buf;
  end;

procedure TForm8.FormActivate(Sender: TObject);
  begin
     ResetForm;
     if ParamCount = 0
     then begin
             Label5.caption:= 'Не задан файл вопросов теста.';
             Button1.caption:='Ok';
             Button1.tag:=2;
             Button1.Enabled:=TRUE
          end
     else begin
          fn := ParamStr(1);
          assignfile(f,fn);
          try
            reset(f);
          except
            on EFOpenError do
               begin
                    ShowMessage('Файл теста '+fn+' не найден.');
                    Button1.caption:='Ok';
                    Button1.tag:=2;
                    Button1.Enabled:=TRUE;
                    exit;
               end;
          end;
          Info; // прочитать и вывести информацию о тесте
          GetLevel;    // прочитать информацию об уровнях оценок
     end;
end;

// щелчок на кнопке Button1
procedure TForm8.Button1Click(Sender: TObject);
  begin
     case Button1.tag of
       0: begin
               Button1.caption:='Дальше';
               Button1.tag:=1;
               RadioButton5.Checked:=TRUE;
               // вывод первого вопроса
               Button1.Enabled:=False;
               ResetForm;
               VoprosToScr;
          end;
       1: begin // вывод остальных вопросов
               summa:=summa+score[otv];
               RadioButton5.Checked:=TRUE;
               Button1.Enabled:=False;
               ResetForm;
               if not eof(f)
                  then VoprosToScr
                  else
                     begin
                        summa:=summa+score[otv];
                        closefile(f);
                        Button1.caption:='Ok';
                        Form8.caption:='Результат';
                        Button1.tag:=2;
                        Button1.Enabled:=TRUE;
                        Itog; // вывести результат
                     end;
          end;
       2: begin // завершение работы
            Form8.Close;
          end;
     end;
end;

// Процедура обработки события OnClick
// для компонентов RadioButton1-RadioButton4
procedure TForm8.RadioButtonClick(Sender: TObject);
begin
  if sender = RadioButton1
  then otv:=1
  else if sender = RadioButton1
          then otv:=2
          else if sender = RadioButton3
                  then otv:=3
                  else otv:=4;
  Button1.enabled:=TRUE;
end;

// обеспечивает настройку компонентов
procedure TForm8.FormCreate(Sender: TObject);
begin
    Image1.AutoSize := False;
    Image1.Proportional := True;
    RadioButton1.Visible := False;
end;

end.

[Serge_Bliznykov]

ну, то, что Вы привели исходник - это неплохо.
Плохо другое... то, что Вы не можете сформулировать - что Вас в работе Вашей программы НЕ УСТРАИВАЕТ!

[ДениC]

И вот картинка

[ДениC]

Вот это не устраивает(((

[evg_m]

а теперь неплохо узнать КАК вызываете

Имя файла теста надо указать в командной строке запуска программы.

и где находится этот файл (который передаете) и как он называется.

[ДениC]

Файл находится в папке с программой, а вот насчет "как вызываю" я ответить не огу, т.к. незнаю.

P.s.: я изучаю всего лишь год, так что не обижайтесь на глупого)

[Serge_Bliznykov]

Вот это не устраивает(((

вот так бы и давно!

   if ParamCount = 0
     then begin
             Label5.caption:= 'Не задан файл вопросов теста.';

значит ВЫ НЕ ЗАДАЁТЕ В КОМАНДНОЙ СТРОКЕ имя файла с вопросами.

Это нужно сделать так:

Если запускаете из командной строки (Пуск, "программы" - "Стандартные" - "Командная строка":

Project1.exe "ТУТ ПОЛНЫЙ ПУТЬ К ФАЙЛУ С ВОПРОСАМИ"
например,
Project1.exe "C:\Documents and Settings\All Users\Документы\Question.dat"

Если запускаете через ярлык.
Тогда в свойствах ярлыка (там, где Объект - и указано имя вашего exeшника, прописать после имени файла путь к файлу с вопросами. например,

"C:\Delphi\Project\Project1.exe" "C:\Documents and Settings\All Users\Документы\Question.dat"

Если же запускаете прямо из среды Дельфи.
То главное меню Delphi, пункт "Run" - "Parameters" - там задать имя файла с вопросами. Опять таки, желательно полное имя и в двойных кавычках.

[ДениC]

а в какой именно вкладке?

если через делфи

____
не пишите несколько коротких сообщений подряд!
Есть что добавить - для этого есть кнопка "Правка"

Модератор.

[Serge_Bliznykov]

а в какой именно вкладке?
если через делфи

Э... в Delphi есть главное меню. (там где "File" "Edit" "Search" и т.д.
так вот, там есть пункт "Run" (у меня он 6-й по порядку, ну в вашей версии он может быть и чуть другой).
Открываете его.
Там первым идёт "Run", а чуть ниже "Parameters"
вот туда и заходите. (заполняйте поле "Parameters")
и можете пробовать запускать.

[ДениC]

Сделал как вы сказали. Теперь выдает ошибку(

// âûâîä èíôîðìàöèè î òåñòå
procedure TForm8.Info;
var
   s,buf:string;
begin
   readln(f,s);
   Form8.Caption := s;
   buf:='';
   repeat
         readln(f,s);
         if s[1] <> '.'            
then buf := buf +s + #13;
   until s[1] ='.';
   Label5.caption:=buf;
end;

Что выделяет я выделил жирным. + скрин