Сохранение параметров MDI формы в *.INI

[Daivel]

Доброго времени суток. Как сохранить положение обычной формы в файле *.INI я представляю. А вот как сделать так что бы Родительская форма и 2 Дочерние формы расположились там же где были не знаю. А ещё всё усложнено тем что на одной из дочерних форм присутствует компонент Image и при закрытии программы в *.INI так же должно записываться какой файл был открыт.
Кто может помочь с кодом?
До этого использовал простой:

Close:

var
  ini: TIniFile;
begin
  ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
  try
    ini.WriteInteger('Form','Top',Top);
    ini.WriteInteger('Form','left',left);
    ini.WriteInteger('Form','Width',Width);
    ini.WriteInteger('Form','Height',Height);
  finally
    ini.Free;
  end;

Create:

var
  ini: TIniFile;
begin
  ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
  try
    Top     := ini.ReadInteger( 'Form', 'Top', 0 );
    Left    := ini.ReadInteger( 'Form', 'Left', 0 );
    Width   := ini.ReadInteger( 'Form', 'Width', 950 );
    Height  := ini.ReadInteger( 'Form', 'Height', 660 );
  finally
    ini.Free;
  end;

[Stilet]

как сделать так что бы Родительская форма и 2 Дочерние формы расположились там же где были не знаю.

Ну ты же знаешь как считывать?
Вот сделай в качестве имени секции имя формы.
Т.е.:

procedure wri(Form:TForm;Ini:TIniFile);
begin
    ini.WriteInteger(Form.Name,'Top',Top);
    ini.WriteInteger(Form.Name,'left',left);
    ini.WriteInteger(Form.Name,'Width',Width);
    ini.WriteInteger(Form.Name,'Height',Height);
end;

Соответственно запись:

var
  ini: TIniFile;
begin
  ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
  try
   wri(form1,ini);
   wri(form2,ini);
  finally
    ini.Free;
  end;

И чтение:

procedure rea(Form:TForm;Ini:TIniFile);
begin
    form.top:=ini.WriteInteger(Form.Name,'Top',form.top);
    form.left:=ini.WriteInteger(Form.Name,'Left',form.left);
...
end;

Идею понял?