Процедура заполнения массива. Delphi

[Alex_2017]

У меня есть готовая программа, где из таблицы считываются значения в массив и сортируються. Мне нужно сделать процесс заполнения массива в виде процедуры. Программа в архиве, помогите пожалуйста сделать процедурой процесс заполнения массива. Заранее Спасибо.

[eoln]

Мда... А он где же массив заполняется, если не в procedure TForm1.BitBtn1Click(Sender: TObject);
Уж если вообще отдельно, то добавь

procedure TForm1.input;
var i:integer;
begin
   for i:=1 to n do
     if cells[i,1]='' then begin
     Showmessage('Заполни всю таблицу');
      SetFocus;
      Exit;
   end;
end;

В раздел type TForm1 = class(TForm) добавь procedure input;
А в тексте программы вместо

for i:=1 to n do
     if cells[i,1]='' then begin
     Showmessage('Заполни всю таблицу');
      SetFocus;
      Exit;
   end;

напиши input