[M.A.D.M.A.N.]

Код:

Grid[0] := TDrawGrid.Create(Self);
Grid[0].Parent := Self;

Код:

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  DrawGrid1.Canvas.TextOut(0, 0, IntToStr(agres));
end;