Не хочет загружаться

[zotox]

procedure TForm1.Button1Click(Sender: TObject);
begin
 ComboBox1.Items.Add('111');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 memo1.Lines.LoadFromFile('d:\1\'+ComboBox1.Items.Strings[1]+'.txt');
end;

Пишет ошибку при нажатии на вторую кнопку(что не найдено d:\1\.txt!
В strings добавляеться при нажатии на первую кнопку,

Исправьте пожалуйста!
Главное чтобы смысл тот же остался!

[Sazary]

ComboBox1.Items.Strings[0]

[zotox]

 for i:=0 to ComboBox1.Items.Count-1 do
  begin
   if edit1.text=ComboBox1.Items.Strings[i] then
    begin
     Memo1.Lines.LoadFromFile('d:\1\'+ComboBox1.Items.Strings[i]+'.txt');
    end;
  end;

А тут как тогда? Ошибку выдает ссылаясь на мемо

[Sazary]

У меня ошибки не возникает. Все работает и грузится.

Что за ошибка-то?

[zotox]

//del.....

[Sazary]

Так а ошибка-то какая?

 for i:=0 to Form2.ComboBox1.Items.Count-1 do

-1 забыли

[zotox]

[Sazary]

zotox, вы исправили эту строчку?

 for i:=0 to Form2.ComboBox1.Items.Count-1 do

[zotox]

Да конечно исправил

[Sazary]

Нашел ошибку )
Вы не создаете экземпляр s.
Добавьте в начало процедуры:

s := TStringList.Create;

А в конце:

s.Free;