1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

...
var
  Form5 : TForm5;
  knoepfe : Array[0..9] of TButton;
  auswahl : Integer;
...
procedure TForm5.klick(Sender : TObject);
begin
     ShowMessage((Sender as TButton).Name);
     Form5.Close
end;

function menuewahl(menue : Array of String; ueberschrift : String) : Integer;
var
   i : Integer;
begin
     auswahl := -1;
     Form5 := TForm5.Create(nil);
     Form5.Caption := ueberschrift;
     for i := 0 to length(menue)-1
     do begin
        knoepfe[i] := TButton.Create(nil);
        with knoepfe[i] do
        begin
             Parent := Form5;
             Caption := menue[i];
             Height := 40;
             Width := 150;
             Left := Parent.Width div 2 - Width div 2;
             if i <> 0
             then Top := Height div 3 * i + (i-1)*Height
             else Top := Parent.Height - Height * 2;
             OnClick := Form5.klick;
             Show;
             Repaint
        end
     end;
     Form5.ShowModal;
     Form5.Release;
     result := auswahl;
end;
...					

1:
2:
3:
4:
5:

procedure TForm5.klick(Sender : TObject);  
begin  
     ShowMessage((Sender as TButton).Caption);  
     Form5.Close  
end;					

1:

knoepfe[i] := TButton.Create(Form5);