رنگی کردن رکورد جاری در استرینگ گرید

[mbshareat]

سلام.
سوالم فکر کنم ساده است ولی بلد نیستم.میخوام وقتی روی استرینگ گرید کلیک می کنم رکورد جاری رنگی بشه.
فکر می کردم این کد جواب بده ولی کار نکرد:

var

  Form1: TForm1;

  LastRow:Word=1;

implementation

..

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;

  Rect: TRect; State: TGridDrawState);

var

  I: Integer;

  R:TRect;

begin

  With StringGrid1 Do

  Begin

    Canvas.Brush.Color := clWhite;

    For I:=1 to ColCount do

    Begin

      R:=CellRect(I,LastRow);

      Canvas.FillRect(R);

      Canvas.TextRect(R,R.Left + 2, R.Top + 2, cells[I, LastRow]);

    End;

    Canvas.Brush.Color := $00FFEBDF;

    For I:=1 to ColCount do

    Begin

      R:=CellRect(I,ARow);

      Canvas.FillRect(R);

      Canvas.TextRect(R,R.Left + 2, R.Top + 2, cells[I, ARow]);

    End;

    LastRow:=ARow;

  End;

end;

[mbshareat]

این کد جواب میده اما رنگ ابی تیره رو دوست ندارم.چطور رنگش رو تغییر بدم؟

  StringGrid1.Options := StringGrid1.Options + [goRowSelect];

[mbshareat]

آخرش به این کد رسیدم

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;

  Rect: TRect; State: TGridDrawState);

const

  SelectedColor = $00FFEBDF;

begin

  if (state <> [gdFixed]) And (ARow=TStringGrid(Sender).Row) then

    with TStringGrid(Sender), Canvas do

    begin

      Brush.Color := SelectedColor;

      FillRect(Rect);

      Font.Color:=clBlack;

      TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Cells[aCol, aRow]);

    end

end;