Текстовая таблица

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  begin
    if (ACol < 1) or (ARow < 1) then Exit;
    with StringGrid1.Canvas do begin
        if longbool(ARow mod 2) then Brush.Color:=clSkyBlue
        else Brush.Color:=clMoneyGreen;
        FillRect(Rect);
        TextRect(Rect,Rect.Left,Rect.Top,StringGrid1.Cells[aCol,ARow]);
    end;
  end;