загрузка данных из ini при условии

[anchoussichek]

Здравствуйте. Я новичок. проблема вот в чем.Есть ComboBox и 4 Edit, которые заполняются пользователем при работе с программой. Данные сохраняю с помощью ini. Т.е. в дальнейшем при открытии программы при выборе определенной строки из комбобокса в эдитах должна отображаться записанная ранее информация (для каждого выбранного значения свой набор данных).
Вот так сохраняется:

PHP код:

procedure TForm5.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 ini := TiniFile.Create(ExtractFilePath(Application.ExeName)+'config2.ini');
try
for I := 0 to ComponentCount - 1 do
if Components[i] is TEdit then
ini.WriteString(Form1.ComboBox1.Text, Components[i].Name, (Components[i] as TEdit).Text);
ini.ReadSections(ListBox1.Items);
finally
ini.Free;
end;
end; 


примерно такой (наверное) код при открытии:

PHP код:

procedure TForm5.FormCreate(Sender: TObject);
begin
ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'config2.ini');
ini.ReadSections(ListBox1.Items);
try
for I:= 0 to ComponentCount - 1 do
begin
  if (Components[i] is TEdit)then
 (Components[i] as TEdit).Text := ini.ReadString( Form1.ComboBox1.Text, Components[i].Name, '');
end;
finally
ini.Free;
end;
end; 


нет условия для соответствия данных выбранной строке в комбобоксе..