Закрашивание в StringGrid

[StudentMarat]

Сообщение от Sanakan

Нужно закрасить столбец или выделить рамкой?

Нужно закрасить столбец. (по команде главного меню столбцы с одинаковым количеством положительных и отрицательных элементов выделяются разноцветными рамками.)

[Sanakan]

procedure TMainForm.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
     if (Arow = Keyrow) then
   begin
     StringGrid1.Canvas.Brush.color := (RGB(67, 242, 67));
     StringGrid1.Canvas.Font.Color := clBlack;
     StringGrid1.Canvas.fillRect(Rect);
     StringGrid1.Canvas.TextOut(Rect.Left+10,Rect.Top,StringGrid1.Cells[ACol,ARow]);
   end;
end;

Keyrow - индекс столбца (который нужно закрасить)