Button erstellen und mit eine Prozedure belegen

[M4dl355]

Hallo,
Ich habe eine frage:

Ich erstelle 4 Button mit folgenden Befehlen:

Delphi-Quellcode:

var Btn:array[1..7] of TButton;
    a :Integer;
begin
  for a:=1 to 4 do
    begin
        Btn[a] := TButton.Create(Form1);
      with btn[a] do begin
        Parent := Form1;
        Height := 32;
        Width := 128;
        Caption := 'Label';
        Left := 50 + (a*70);
        Top := 50+ (a*70) ;
      end;
    end;
end;

Und die frage ist jetzt wie es schaffe, das ich die Button auch mit einer Prozedure belege.