чтение из ini динамических компонентов

[varelik]

Здравствуйте, товарищи эксперты!
Ай нид хелп..
Не читаются из ini динамически сохраненные в него компоненты формы.
С записью все ОК. Привожу код:

//запись
procedure TForm1.save1Click(Sender: TObject);
   var
  IniFile : TIniFile;
     i1: Integer;  
  i:integer;
  section:string; 
  begin
  SaveDialog1.FileName:='c:\'+form4.Edit4.Text+form4.Edit3.Text;
  SaveDialog1.DefaultExt:='ini';
  if SaveDialog1.Execute then
  begin
 i:=0;
 for I1 := 0 to panel1.ControlCount - 1 do
  begin
 if (panel1.Controls[i1] is timage1) then
  begin
 IniFile := TIniFile.Create(SaveDialog1.FileName);
 inc(i);
 section:=format('image%d',[i]); 
//чтобы сократить код - записываю только left имиджа:
 inifile.writeInteger(section,'left',panel1.Controls[i1].left);
 IniFile.Free;
 end;
 end;
 end;
 end;


//загрузка
procedure TForm1.open1Click(Sender: TObject);
     var   
  IniFile : TIniFile;
     i1: Integer; 
  i:integer;
  section:string; 
begin
  if OpenDialog1.Execute then
  begin
  i:=0;
 for I1 := 0 to panel1.ControlCount - 1 do
  begin
 if (panel1.Controls[i1] is timage1) then
  begin
    SpeedButton4Click(self);//по этой кнопке на panel1 формы имиджи создаются, типа- скока кликов по ней- стока имиджов на форме
IniFile:=TIniFile.Create(OpenDialog1.FileName);
  inc(i);
 section:=format('image%d',[i]); 
panel1.Controls[i1].Left:=IniFile.ReadInteger(section,'Left',panel1.Controls[i1].left);
 IniFile.Free;
   end;
end;
 end;
   end;

Возможно это и раньше обсуждалось, но не могу найти(
и еще- без циклов с controlcount, если сохранял и читал только timage1(new).left вместо
panel1.Controls[i1].left, то все отлично читалось- значит проблема с организацией цикла в чтении.. наверно..


все, сделал, тема закрыта

[evg_m]

SpeedButton4Click(self);//по этой кнопке на panel1 формы имиджи создаются, типа- скока кликов по ней- стока имиджов на форме
создаются стало быть сначала их нет,
а в этом случае (panel1.Controls[i1] is timage1)=FALSE
да и panel1.ControlCount=0

[varelik]

да уж разобрался давно), все правильно говорите