procedure Initialize; override;
procedure TCS.Initialize;begin inherited; {чё тебе тут надо делать при создании}end;