Ошибка:"Project raised exception class EConvertError..."

[Gambit90]

Вообщем надо сделать тестирующую программу.И на псоледней стадии когда загружаю ini-файл с вопросами, то возникает эта ошибка:"Project Project1.exe raised exception class EConvertError with message "F:\comp.ini" is not a valid integer value. Process stopped. Use Step or Run to continue"

Вот текст программы (не весь)

var
  Form1: TForm1;
   i, a, n, balls, vopr: integer; 
dir, dir2, ss, zz, yes: string;
win: TIniFile; 
mass: array[1..100] of integer; 
f1, f2: file of char; 
cop: char;

implementation

{$R *.dfm}
 procedure TForm1.start();
begin
Randomize;
for i:=1 to n do mass[i] := 0;
{$I-}
Memo1.Visible := True;
RadioGroup1.Visible := True;
Label1.Visible := True;
an1.Visible := True;
an2.Visible := True;
an3.Visible := True;
an4.Visible := True;
p1.Visible := True;
p2.Visible := False;
p3.Visible := False;
p4.Visible := False;
p5.Visible := False;
balls := 0;
Label2.Visible := False;
Label1.Caption := 'Первый вопрос:';
dir2 := 'C:\base.bsd';
CopyFile(PChar(ss), PChar(dir2), True);
AssignFile(f1, ss) ;
AssignFile(f2, dir2);
Reset(f1);
Rewrite(f2);
while not Eof(f1) do
begin 
Read(f1, cop);
cop := Chr(Ord(cop) xor 101);
Write(f2, cop);
end;
CloseFile (f1);
CloseFile(f2);
{$I+}
Win := TIniFile.Create(dir2);
ss := Win.ReadString('num', 'num', ss);
n := StrToInt(ss);
vopr := Random(4) + 1;
vars(vopr);
end;
procedure TForm1.question_select() ;
label ran;
begin
Randomize;
ran:
a := Random(n);
for i:=1 to n do
if mass[i] = a then goto ran;
for i:=1 to n do
if mass[i] = 0 then
begin
mass[i] := a;
Break;
end;
an1.Checked := False;
an2.Checked := False;
an3.Checked := False;
an4.Checked := False;
end;
procedure TForm1.verno();
begin
if an1.Checked then
if yes = an1.Caption then balls := balls + 1;
if an2.Checked then
 if yes = an2.Caption then balls := balls + 1;
if an3.Checked then
if yes = an3.Caption then balls := balls + 1;
if an4.Checked then
if yes = an4.Caption then balls := balls + 1;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
dir := GetCurrentDir;
ss := dir + '\comp.ini';
zz := ss;
start();
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
DeleteFile('c:\base.bsd');
end;
procedure TForm1.N2Click(Sender: TObject);
begin
Randomize;
ss := zz;
start();
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Randomize;
Open1.InitialDir := GetCurrentDir;
if not Open1.Execute
then ShowMessage('Вы не выбрали файл!')
else begin
ss := Open1.FileName;
 zz := ss;
start();
end;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Halt;
end;

Красным выделено то место которое отмечает Delphi после этой ошибки.Помогите пожалуйста!

[mihali4]

Пытался разобраться и бросил - неохота ломать глаза на таком "листинге"...
Посему совет только один - поставьте брэкпойнт на предыдущей строке (от красной) и пройдитесь по шагам (F7).
Ошибку вам Дельфи покажет - она умная... Она даже текстом все говорит, правда, по-аглицки. В общем-то, текст ошибки уже все разъяснил...

[Gambit90]

Не, не помогло
Вот программа во вложенном файле

[mihali4]

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

Не, не помогло
Вот программа во вложенном файле

Похоже, сказанное мной показалось вам китайским языком. Это совсем плохо. Элементарные вещи нужно знать.
(Еще хуже только то, что вы и не хотите это узнать. И не спрашиваете. Из-за ложной "скромности", надо полагать?)

{$I+}
Win := TIniFile.Create(dir2);
ss := Win.ReadString('num', 'num', ss);
n := StrToInt(ss);
vopr := Random(4) + 1;
vars(vopr);
end;

Знакомый кусок?
Так вот - значение SS при первом же проходе равно "COMP.INI".
И что вы хотите с этой строкой сделать?
Докладываю - n := StrToInt(ss); то есть "мечтаете" преобразовать ее в целое число...
Это возможно??? Конечно, нет! Почему?
Об этом вам недвусмысленно намекает Дельфи: ""F:\comp.ini" is not a valid integer value"
На всякий случай переведу: ""F:\comp.ini" не является допустимым выражением целого числа"...
Инцидент исчерпан?

[Gambit90]

Так, и как же это исправить?Удалить строку n := StrToInt(ss); ??

[mihali4]

Вполне. Ибо я не вижу, где это N используется и зачем оно вообще...

[Gambit90]

Всё, спасибо большое!Помогло!!!