und wie willst du dann sowas abfangen?
Delphi-Quellcode:
procedure DoAnything(Sprite: TSprite);
begin
Sprite.Load(1);
Sprite.Load();
end;
procedure TForm2.cmd1Click(Sender: TObject);
var
sprite : TSprite2;
begin
sprite := TSprite2.Create;
DoAnything(sprite);
end;
Genau so läuft es ja auch mit den Componenten die zur Designzeit aufs Formular gepackt werden. Sie sind alle von TComponent abgeleitet und werden alle als TComponent behandelt.