[Страдалецъ]

Вы можете воспользоваться такой фишкой - хэлпер.
Выглядит это так:

Код:

Type
TMyImage = class helper for TImage
   constructor Create(AOwner: TComponent);
end;

...

constructor TMyImage.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 Tag := 1;
end;

Тогда при создании в рантайме TImage будет автоматом вызван конструктор от TMyImage.