1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TFrame6.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
   if (ARow=0) then  
     with StringGrid1 do
     begin
       Canvas.Brush.Color := clRed;
       Canvas.FillRect(Rect);
       Canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);
     end;
end;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

object StringGrid1: TStringGrid
    Left = 24
    Top = 352
    Width = 529
    Height = 153
    Color = clWhite
    ColCount = 2
    DefaultRowHeight = 19
    FixedColor = clDefault
    FixedCols = 0
    RowCount = 8
    FixedRows = 0
    Options = [goHorzLine, goEditing, goRowSelect]
    ScrollBars = ssNone
    TabOrder = 5
    OnDrawCell = StringGrid1DrawCell
  end

1:
2:
3:
4:
5:
6:
7:

 with StringGrid1 do
     begin
       Canvas.Brush.Color := clRed;
       Canvas.FillRect(Rect);
       Canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);
       Canvas.Brush.Color := clnone;
     end;