Высокоуровневые методы информатики и программирования. Сивохин А.В - 90 стр.

       MidSeries: TLineSeries;
       procedure InitButtonClick(Sender: TObject);
       procedure FontClick(Sender: TObject);
       procedure ClearInButtonClick(Sender: TObject);
       procedure ClearOutButtonClick(Sender: TObject);
       procedure CalcButtonClick(Sender: TObject);
       procedure InStringGridSelectCell(Sender: TObject; ACol, ARow: Integer;
         var CanSelect: Boolean);
       procedure GraphicButtonClick(Sender: TObject);
       procedure SortButtonClick(Sender: TObject);
       procedure ExitButtonClick(Sender: TObject);
       procedure Button1Click(Sender: TObject);
      private
       { Private declarations }
      public
       { Public declarations }
      end;

     var
      OrlovArrayForm: TOrlovArrayForm;

     implementation

     {$R *.dfm}

     procedure TOrlovArrayForm.FontClick(Sender: TObject);
     begin

      //-Установка Color, Name, Size и Style:
      If ArrayFontDialog.Execute then
         ArrayRichEdit.SelAttributes.Assign(ArrayFontDialog.Font);
      ArrayRichEdit.SetFocus;

     end;

     procedure TOrlovArrayForm.InitButtonClick(Sender: TObject);
     var
      iCol : Integer;//-для организации цикла по колонкам таблиц;
      jRow : Integer;//-для организации цикла по рядам(строкам) таблиц;
     begin // Обработчик для кнопки "Инициализировать":
      DynArraySize:=(InStringGrid.ColCount-1);
      SetLength(InDynArray, DynArraySize);
      SetLength(OutDynArray, DynArraySize);
      Sum:=0.0;
      kCol:=0;
      InStringGrid.Options := InStringGrid.Options - [goEditing];
      Randomize;
67