1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure TForm1.StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);

var
  Wert : Integer;

begin
  if (ARow>0) and (ACol>0) then
    begin
      Wert:=ARow mod 2;
      if (Wert=0)
        then
          begin
            StringGrid2.Canvas.Brush.Color := clMoneyGreen;
            StringGrid2.Canvas.FillRect(Rect);
          end
            else
              begin
                StringGrid2.Canvas.Brush.Color :=clInfoBk;
                StringGrid2.Canvas.FillRect(Rect);
              end;
      end;
        Stringgrid2.Canvas.TextOut(StringGrid2.Canvas,   Rect.Right - StringGrid2.Canvas.TextWidth(StringGrid2.Cells[ACol, ARow]) - 2,
        Rect.Top + 2, StringGrid2.Cells[ACol, ARow]);



end;					

1:
2:

with StringGrid do
  canvas.TextOut(rect.Left,Rect.bottom-canvas.Textheight('X')-1,' Text ');					

1:

TextOut(Rect.Left + Font.Size, Rect.Top + 2, 'Owner Drawn text');