Button zerstören?

[devnull]

Ich hab hierzu auch noch eine Frage:
Ich habe einem Button des FButtonArrays die Funktion gegeben, dass Programm zu beenden.

Erstellen eines neuen Buttons

Delphi-Quellcode:

  SetLength(Form1.FButtonArray, 10);
  Form1.FButtonArray[iCnt]:= TButton.Create(Form1);
  Form1.FButtonArray[iCnt].Parent := Form1;
  Form1.FButtonArray[iCnt].Caption := 'Programm Beenden';
  //Form1.FButtonArray[iCnt].Tag := iCnt;
  Form1.FButtonArray[iCnt].Left := x+25;
  Form1.FButtonArray[iCnt].Top := y;
  Form1.FButtonArray[iCnt].Width := w;
  Form1.FButtonArray[iCnt].Height := h;
  @Form1.FButtonArray[iCnt].OnClick := @MeinEigenesOnClick;

Nachdem auf ein Button geklickt wurde

Delphi-Quellcode:

procedure MeinEigenesOnClick (Self: TObject; Sender: TObject);
var prg_gesucht : string;
begin
  prg_gesucht := TButton(Sender).Caption;

  if prg_gesucht = 'Programm beenden' then begin
     MessageDlg ('Beenden ...',mtInformation,[mbOk],0);
     // Fehlt hier was ???
     Form1.Close;
  end;
  [...]

Seitdem ich dies so mache (Beenden des Programms) kommt nach Schließen des Programms der Windows-Fehler-Sound
und in der Delphi-Umgebung die Debugger-Exception "Ungültige Zeigeroperation".


Kann mir jemand helfen ???


MFG
devnull