unit spectrum; interface uses classes,controls,stdctrls,windows,graphics,extctrls,jpeg,sysutils; type TMyclass=Class(TWinControl) private public Constructor Create(AOwner : TComponent); override; Destructor Destroy; override; Procedure Resize; override; End; implementation Constructor TMyClass.Create(AOwner : TComponent); begin inherited; //Create Components here Parent := (AOwner As TWinControl); end; Destructor TMyClass.Destroy; begin inherited; end; Procedure TMyClass.Resize; begin inherited; end; end.