Wie kann ein Zeiger auf eine Funktion als Paramater übergeben werden?

[FriendOfDelphi]

Zitat von himitsu:

Zitat von DeddyH:

Ungetestet

Man hätte auch einfach mal bei den Unmassen an .OnXyz-Property der VCL abgucken können.
z.B. wie der Typ für .OnKeyPress einer Form deklariert ist.

Oder die .Sort-Methode einer TStringList > TStrings.CustomSort

Das verstehe ich nicht. Dafür bin ich wohl noch zu sehr Delphi-Anfänger.
Wenn ich in einem Fenster einen Button erzeuge und auf das Ereignis OnKeyPress reagieren möchte, erhalte ich folgenden Quellcode:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char);
begin
//...
end;

end.

Ich kann leider den Zusammenhang mit meinem Vorhaben nicht daraus erkennen...