with TIniFile.Create('...') do try WriteInteger('ShapesBrush', Shape1.Name, integer(Shape1.Brush.Color)); WriteInteger('ShapesBrush', Shape2.Name, integer(Shape2.Brush.Color)); WriteInteger('ShapesBrush', Shape3.Name, integer(Shape3.Brush.Color)); finally Free; end; with TIniFile.Create('...') do try Shape1.Brush.Color := ReadInteger('ShapesBrush', Shape1.Name); Shape2.Brush.Color := ReadInteger('ShapesBrush', Shape2.Name); Shape3.Brush.Color := ReadInteger('ShapesBrush', Shape3.Name); finally Free; end;