Encadenar sonidos????

[tarco35]

Lo he hecho haciendolo en una unidad y cuando llamo al procedimiento create me da error. lo he decladado asi:

unit UnidadSonidos;

interface

uses Classes,Windows;

type
TSound = class(TThread)
private
FList: TStringList;
FMutex: THandle;
protected
procedure Execute; override;
public
constructor Create;
destructor Destroy; override;
procedure Add(Path: String);
end;


implementation

{ TSound }
uses MMSystem;

y a partir de aqui como tu me has indicado. En la prmera linea del CREATE me da el error de violacion????