Візуалізація елементів табличної величини з використанням графічних примітивів

  Процедура для формування двох табличних величин з 5 елементів: a - із цілих чисел, b - з компонентів Фігура та зображення чтсел фігурами відповідних висот:
       var a: array [1..5] of integer; b: array [1..5] of TShape; i: integer;
       begin
          b[1] := Shape1; b[2] := Shape2; b[3] := Shape3;
          b[4] := Shape4; b[5] := Shape5;
          for i := 1 to 5 do a[i] := StrToInt(Memo1.Lines[i-1]);
          for i := 1 to 5 do b[i].Height := a[i];
       end;
  Фрагмент процедури масштабування висот фігур для зручної візуалізації великих чисел:
       max := a[i];
       for i := 2 to 5 do
       If a[i] > max
       Then max := a[i];
       for i := 1 to 5 do 
       b[i].Height := round(a[i]*100/max);
  Приклад команди для фарбування фігури в червоний колір:
       b[i].Brush.Color := clred;
  Фрагмент процедури для візуалізації чисел з використанням властивості Canvas:
       I := 5;
       for i := 0 to 7 do
       begin
         Canvas.Rectangle(I, Form1.Height, I + 20, Form1.Height-a[i]);
         I := I +25;
       end;