TComponent implementiert kein eigenes Assign (um z.B. den Tag zu übernehmen).
Deshalb wird Assign von TPersistent aufgerufen, was zur
Exception führt.
Wenn deine Komponente auch den Tag übernehmen soll, dann z.B. so:
Delphi-Quellcode:
procedure TMeineKlasse1.Assign(Source: TPersistent);
begin
if Source
is TComponent
then
Tag := TComponent(Source).Tag
else
inherited;
{Exception auslösen}
if Source
is TMeineKlasse1
then
begin
X := TMeineKlasse1(Source).X;
Y := TMeineKlasse1(Source).Y;
end;
end;