procedure an Mutter Klasse übergeben

[Dax]

Delphi-Quellcode:

unit Unit2;

interface

uses
  Forms, Classes;

type
  TProgramm = class(TForm)
    procedure KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private

  public
    pro : TNotifyEvent;
  end;

implementation

procedure TProgramm.KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if shift = [] then
    begin
      case key of
        27 : pro(self);
      end;
    end;
end;

end.

Dazu nimmst du deinen alten Code für die andere Unit.