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