Hoppla, das war falsch, was ich erzählt hab...
Ein Blick in TCustomForm (dort gibt's ja auch ne Icon-Eigenschaft) zeigt:
Delphi-Quellcode:
procedure TTestCompo.SetIcon(Value: TIcon);
begin
FIcon.Assign(Value);
end;
constructor TTestCompo.Create(AOwner: TComponent);
begin
inherited;
FIcon := TIcon.Create;
end;
destructor TTestCompo.Destroy;
begin
FreeAndNil(FIcon);
inherited;
end;
Ich hab's getestet und es funktioniert!
MfG
Edit: Copy&Paste-Fehler behoben...