Klassen zur Laufzeit dynamisch erweitern

[Captnemo]

Hi,

sagen wir ich habe eine Klasse:

Delphi-Quellcode:

TTestklasse = Class(TObject)
  Hesteller: String;
  Modell: String;
  Breite: integer;
  Hoehe: integer;
end;

und ich möchte diese Klasse zur Laufzeit um eine variable Anzahl an Eigenschaften erweitern, die aber vom User definiert werden können sollen. Würde das irgendwie gehen, oder ist das nicht möglich?