[starcon]

Не могу разобраться с раскраской строк в DbGridEh.
Вот код , который работает

Код:

procedure TForm2.DBGrideh1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumneh; State: TGridDrawState);
const
clPaleGreen = TColor($CCFFCC);
clPaleRed = TColor($CCCCFF);
begin
 
   if Column.Field.Dataset.FieldByName('rastr').AsString = 'Растр' then
     if (gdFocused in State) then
       DBGrideh1.Canvas.Brush.Color := clNavy
     else
       DBGrideh1.Canvas.Brush.Color := clyellow;
 
 
DBGrideh1.DefaultDrawColumnCell(Rect, DataCol, Column, State)
 
end;

Как мне прикрутить туда комбобох с выбором цвета, который при повторном запуску программы будет запоминаться?