...
implementation
var
ColDraw: Integer = 1;
RowDraw: Integer = 2;
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if ACol = ColDraw then with TStringGrid(Sender) do
begin
Canvas.Brush.Color:= clRed; Canvas.FillRect(Rect);
Canvas.Font.Color:= clWhite; Canvas.TextOut(Rect.Left+1, Rect.Top+1, Cells[ACol,ARow]);
end;
end;