Как написать процедуру с обращением к Button?

TForm1=class(TForm)
...
a:array of integer;
d:array of single;
vMin:integer;
...
end;
 
procedure TForm1.LoadArray;
var 
  L:TStringList;
  v:integer;
begin
  L:=TStringList.Create;
  // прочитать файл в стринглист и заполнить массив A
  // заодно посчитать vMin
  L.LoadFromFile(Filename);
  while l.count>StrToIntDef(Edit1.Text,0) do l.delete(l.COunt-1);
  setLength(A,L.Count);
  for i:=0 to L.Count-1 do 
  begin
    v:=StrToIntDef(L[i],0);
    if (i=0)or(v<vMin) then
      vMin:=v;
    a[i]:=v;
  end;
  l.free;
end;
 
procedure TForm1.Button1Click(Sender:TObject);
begin
  LoadArray;
end;
 
procedure TForm1.Button2Click(Sender:TObject);
begin
  // на ноль делить нехорошо
  if vMin=0 then exit;
 
  setlength(d,length(a));
  for i:=0 to L.Count-1 do
  begin
    d[i]:=a[i]/vMin;  
  end;
 
  ShowDArray;
end;
 
procedure TForm1.ShowDArray;
begin
  //Массив D вывести в поле компонента Label(оформить в виде процедуры)
  //это как-то не укладывается в мои понятия "вывод массива", делайте сами,процедура вот она )))
end;