Чтение из ini файла

ini2.WriteString('Vopros'+IntToStr(k),'Вопрос',edit1.Text);

begin
k:=k+1;
 ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'test.ini');
ini2 := TIniFile.Create('C:\Documents and Settings\AdDa\Рабочий стол\Пз\курсач\test2.ini');
 try
 for i := 0 to Checklistbox1.Items.Count - 1 do
 ini.WriteBool ('items'+IntToStr(k),Checklistbox1.Items[i], Checklistbox1.Checked[i]) ;
  ini2.WriteString('Vopros'+IntToStr(k),'Вопрос',edit1.Text);
 finally
 ini.Free;
 end;

begin
s := 0;
  s := strtoint(Edit3.Text);
    ini := TIniFile.Create('C:\Documents and Settings\AdDa\Рабочий стол\Пз\курсач\test.ini');
   try
     ini.ReadSection('items'+IntToStr(s), Checklistbox2.Items);
     for i := 0 to Checklistbox2.Items.Count - 1 do
   CheckListbox2.Checked[i] := ini.ReadBool('items'+IntToStr(s), Checklistbox2.Items[i], False);
  edit4.Text:= ini2.ReadString('Vopros'+IntToStr(s),'Вопрос', '')
   finally
     ini.Free;
   end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  InitIni('Ini1');
  Ini.WriteInteger('Sektion1', 'Identificator1', 100);
  InitIni('Ini2');
  Ini.WriteInteger('Sektion2', 'Identificator2', 10000000);
end;
 
procedure TForm1.InitIni(IniName: String);
begin
  Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+IniName+'.ini');
end;