[angvelem]

Используй:

Код:

procedure TForm2.FormShow(Sender: TObject);
var
  Ini : TIniFile;
begin
  Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
  try
    Color := Ini.ReadInteger( 'Form', 'Color', clCream);
  finally
    Ini.Free;
  end;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
var
  Ini : TIniFile;
begin
  Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
  try
    Ini.WriteInteger('Form', 'Color', Color)
  finally
    Ini.Free;
  end;
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
  if CD.Execute then
  begin
     Form2.Color := ColorToRGB(CD.Color);
     Repaint;
  end;
end;