TBitmap property in eigener Komponente erzeugt bei Ausführung Fehlermeldung

[Whookie]

Versuchs einfach mal mit sowas:

Code:

procedure TUserButton.SetIcon(const Value: TBitmap);
begin
  FIcon.Assign(Value);
  Invalidate;
end{TUserButton.SetIcon};