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

     Процедура для формування двох табличних величин з 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] := Shape; b[5] := Shape5;
    for i := 1 to 5 do a[i] := StrToInt(Memo1.Lines[i-1]);
    for i := 1 to 5 do b[i].Heigh:=a[i];
end;


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

    max := a[1];
    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, 1+20, Form1.Height-a[i];
      I := 1 + 25;
    end;