laufzeitkomponente mit ereigniss

[MasterTobi]

Hallo wusst net wo ich posten soll


also ich benutzt Turbodelphi, da man da nicht komponenten von drittanbietern nutzen kann -.- muss ich also

am anfang der unit

Delphi-Quellcode:

    
procedure Trans1Change(Sender: TObject);
private
Trans1 : TTransmemo;

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin

  Trans1 := TTransmemo.Create(self);
  with Trans1 do
  begin
    Parent := Self;
    Height := 26;
    Width := 120;
    Top := 15;
    Left := 20;
    Font.Color:=clRed;
  end;

Delphi-Quellcode:

//dann möchte ich das ereigniss aufrufen
procedure TForm1.Trans1Change(Sender: TObject);
begin
...

programmieren.

aber es passiert nix oO, dachte ich muss vll

Delphi-Quellcode:

  Trans1 := TTransmemo.Create(self);
  with Trans1 do
  begin
    Parent := Self;
    Height := 26;
    Width := 120;
    Top := 15;
    Left := 20;
    Font.Color:=clRed;
//hier 
OnChange(self);
//aber dann bringt er beim kompielen+ ausführen ein laufzeitfehler

kann mir jemand helfen ?

[Bummi]

Delphi-Quellcode:

   OnChange := Trans1Change;