procedure wird nicht aufgerufen

[JnZn558]

ich hab es nun geschafft

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ExpandingComponent1: TExpandingComponent;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    tes: TExpandingRecord;

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  tes := TExpandingRecord.Create( Self );
  ExpandingComponent1.Property1.StringProp := 'mach mal das was ich will';
  ExpandingComponent1.Property1 := tes;  // erst bei dieser zeile springt eine meldung aus
end;

oh man, hab mich voll durchgequaelt. danke fuer alle muehe, mir tipps zugeben