Коллекции

[Mike777]

Всем привет Помогите, пожалуйста. У меня есть общий класс фигур. И два класса наследника(квадраты и круги).
type
TFigure = class(TFigureCollection)
x,y,r:integer;
constructor Create;
procedure show; virtual;
destructor Destroy;
procedure Hide; virtual;
end;

type
TRect = class(TFigure)
c :TColor;
constructor Create;
procedure Show; override;
destructor Destroy;
procedure Hide; override;
end;
type
TEllipse = class(TFigure)
c1:TColor;
constructor Create;
procedure Show; override;
destructor Destroy;
procedure Hide; override;
end;

Требуется теперь все это забить в коллекцию.Как мне это реализовать? Заранее благодарен