Построение графика

[HaHa]

Помогите разобраться, строю график по значениям из StringGrid, не могу дотбкать как увеличивать по оси y

Код Выделить Развернуть

_col:= 1;                         
_row:= 1;                           
for j:= 1  to 12 do                 
  begin
    iRect:= ksRectangleParam(iKompas.GetParamStruct(ko_RectangleParam));
    iRect.Init;
    iRect.x:= _x;                 
    iRect.y:= _y;
    iRect.ang:= 0;                 
    iRect.height:= StrToFloat(StringGrid1.Cells[_col, _row]) * _scale_coefficient;
    iRect.width:=  _width_rect;       
    iRect.style:= 1;                 
    iDoc2D.ksRectangle(iRect, 0);     
//------------------------------------------------------------------------------
    iDoc2D.ksHatch(_rect_hatch[0], 45, 2, 0, 0, 0);
    iRect.x       := _x;           
    iRect.y       := _y;
    iRect.ang     := 0;           
    iRect.height  := StrToFloat(StringGrid1.Cells[_col, _row]) * _scale_coefficient;
    iRect.width   :=  _width_rect;   
    _col          := _col + 1;
    iRect.style   := 1;             
    iDoc2D.ksRectangle(iRect, 0);     
    _x            := _x + _width_rect;
    iDoc2D.ksEndObj;

[Sabahs]

Ещё один цикл вложить, для строк _row.

[HaHa]

Получается вот такая ерунда

[Sabahs]

for I:= 1  to 12 do // цикл для _row               
  begin
      _x:=0;           
     max_Y:=0;
      for j:= 1  to 12 do                 
       begin // цикл для _col
           iRect.height:= StrToFloat(StringGrid1.Cells[I,J]) * _scale_coefficient;
           if  max_Y<iRect.height then max_y:=iRect.height;
           .....
       end;
       _y:=_y+max_Y+5;
    end;