procedure THiAsmClass.doPic;
 var i,j:integer;
 begin
   for i:=0 to 99 do    
    begin
      _hi_OnEvent(onCoordY, i); 
      for j:=0 to 99 do
       begin
        _hi_OnEvent(onCoordX, j);
       // _hi_OnEvent(onCoordY, i);
        _hi_OnEvent(onColor, StatusCellsInt[i+1,j+1]);
       end;    
    end;
  _hi_OnEvent(onPic, 1);
 end;