Problem im constructor einer Komponente

[DeddyH]

Es lässt sich nicht kompilieren, hängt aber in einer Endlosschleife?

[edit] Ich kann das Problem nicht nachvollziehen, mein Testcode:

Delphi-Quellcode:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.ExtCtrls;

type
  TDingens = class(TCustomControl)
  private
    FImage: TImage;
  public
    constructor Create(AOwner: TComponent); override;
  end;

  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    FDingens: TDingens;
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

{ TDingens }

constructor TDingens.Create(AOwner: TComponent);
begin
  inherited;
  Width := 400;
  Height := 300;
  FImage := TImage.Create(self);
  FImage.Parent := self;
  FImage.Left := 0;
  FImage.Top := 0;
  FImage.AutoSize := true;
  FImage.Picture.LoadFromFile(...); // Irgendeine Grafik, in meinem Fall ein Icon
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  FDingens := TDingens.Create(self);
  FDingens.Parent := self;
  FDingens.Left := 10;
  FDingens.Top := 10;
end;

end.

[/edit]