Присвоение значения в combobox из файла

setting:=TStringList.Create;
    setting.LoadFromFile('Settings.txt');
       for i:=Setting.Count-1 downto 0 do
        if Length(trim(Setting.Strings[i]))=0
          then
          Setting.Delete(i);
 
       for i:=Setting.count-1 downto 0 do
        if pos('#', Setting.Strings[i])=1
           then
           Setting.Delete(i);
       memo2.Text:=Setting.text; // смотрю что получилось

var
  Form1: TForm1;
   List:Tstringlist;
   W1,W2 :string;
implementation
 
{$R *.dfm}
 
procedure TForm1.ComboBox1Change(Sender: TObject);
 
Var
i,j:Integer;
begin
    for i :=0 to List.Count-1 do
    begin
      if Pos('Quality',List[i])=1 then
      begin
       List[i]:=StringReplace(List[i],W1, IntToStr(ComboBox1.ItemIndex+1),[rfReplaceAll, rfIgnoreCase]);
      end;
    end;
 
    List.SaveToFile( 'Ваш файл.');
end;
 
procedure TForm1.ComboBox2Change(Sender: TObject);
Var
i,j:Integer;
begin
   for i :=0 to List.Count-1 do
    begin
      if Pos('Distance',List[i])=1 then
      begin
       List[i]:=StringReplace(List[i],W2, IntToStr(ComboBox2.ItemIndex+1),[rfReplaceAll, rfIgnoreCase]);
      end;
    end;
 
    List.SaveToFile('Ваш файл.');
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 List.Free;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
Var
i,j:Integer;
begin
  List :=TStringList.Create;
  List.LoadFromFile('Ваш файл');
  for i :=0 to List.Count-1 do
  begin
     if Pos('Quality',List[i])=1 then
     begin
        for j:=i-5  to i-1 do
          begin
            ComboBox1.Items.Add(Copy(List[j],4,8));
          end;
        W1:= Copy(List[i],9,1) ;
        ComboBox1.text:= ComboBox1.Items[StrToInt(W1)-1];
         end;
 
     if Pos('Distance',List[i])=1 then
     begin
        for j:=i-5  to i-1 do
          begin
            ComboBox2.Items.Add(Copy(List[j],4,8));
          end;
         W2:=Copy(List[i],10,1 );
        ComboBox2.text:= ComboBox2.Items[StrToInt(W2)-1];
         end;
 
  end;
end;
end.