Cella (maradando) szinezes Delphi-ben, gdselected in state kijelolessel?

azt szeretnem, ha egeres kijelolesnel a kijelolt cellak kulonbozo szinuek lennenek (RadioButtonX -tol fuggoen kulonbozoen) es masik radiobutton valasztasnal, azaz egy masik kijelolesnel az elobbiekben kijelolt cellak szine ugy maradna, es igy tovabb... valakinek valami otlet? elore is koszonom. forras:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;

Rect: TRect; State: TGridDrawState);

begin

if (gdSelected in State) or (gdFocused in state) then

if RadioButton1.Checked = true then

begin

jelzo := '0';

stringgrid1.canvas.Brush.Color := clRed;

//stringgrid1.canvas.Brush.Style := bsSolid;

stringgrid1.canvas.FillRect(rect);

stringgrid1.canvas.Font.Color := clWhite;

Stringgrid1.cells[col,row] := jelzo ;

stringgrid1.canvas.TextRect(rect,rect.left,rect.top,stringgrid1.cells[col,row])

end else

if RadioButton2.Checked = true then

begin

jelzo := '1';

stringgrid1.canvas.Brush.Color := clblue;

//stringgrid1.canvas.Brush.Style := bsSolid;

stringgrid1.canvas.FillRect(rect);

stringgrid1.canvas.Font.Color := clWhite;

Stringgrid1.cells[col,row] := jelzo ;

stringgrid1.canvas.TextRect(rect,rect.left,rect.top,stringgrid1.cells[col,row]);

end;

end;