procedure TMainForm.SaveIniFile;
var I: TIniFile;
    Form: String;
begin
  I := TIniFile.Create(ExtractFilePath(ParamStr(0))+'MY_INI_FILE.ini');
  try
    Form := 'MainForm';
    with mainForm do begin
      if WindowState = wsNormal then begin
        I.WriteInteger(Form, 'Left', Left);
        I.WriteInteger(Form, 'Top', Top);
        I.WriteInteger(Form, 'Width', Width);
        I.WriteInteger(Form, 'Height', Height);
      end;
      if WindowState = wsMaximized then I.WriteString(Form,'State','MAXIMIZED')
                                        else I.WriteString(Form,'State','NORMAL');
    end;

  finally
    I.Free;
  end;
end;

procedure TMainForm.LoadIniFile;
var I: TIniFile;
    j: Integer;
    Form: String;
begin
  I := TIniFile.Create(ExtractFilePath(ParamStr(0))+'itse.ini');
  try
    Form := 'MainForm';
    with mainForm do begin
      Left := I.ReadInteger(Form, 'Left', Left);
      Top := I.ReadInteger(Form, 'Top', Top);
      Width := I.ReadInteger(Form, 'Width', Width);
      Height := I.ReadInteger(Form, 'Height', Height);
      if I.ReadString(Form,'State','NORMAL')='MAXIMIZED'
        then WindowState := wsMaximized;
    end;

  finally
    I.Free;
  end;
end;