1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

unit thredUnit;

interface

uses
  Classes,Dialogs;


type
  Test1 = class(TThread)
  private
    { Private-Deklarationen }
  protected
  public
    procedure Execute; override;
  end;

implementation

uses soundsystem;


procedure Test1.Execute;
var
  t:Integer;
begin
  t:=0;
  while (Not Terminated) and (t=0) do  
//   *

end;

end.
type
  TSound = class
    private
      GoFlag:Integer;
      test:Test1;
    protected

    public
      PlayListe: array of TPlayListe;
      Random_Music: array of TPlayListe;
      constructor create(pSoundFiles,SoundDir,DefaultExt:String;flag:Integer); // Lädt die Angebenden Sound Files
      
      procedure NewMusik;
      procedure NewMusik2;
      procedure LoadMusikFile(Index:Integer;RM:Boolean);
      procedure AddPlayListe(FileName:String); // Fügt der Playliste eine Datei hinzu
      procedure PlayMusikFile(Index:Integer);
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

...
end; 

end. 
type 
  TSound = class 
    private 
      GoFlag:Integer;

...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

  TTest1 = class(TThread) 
  private 
    { Private-Deklarationen } 
    FSound: TSound;
  protected
    procedure Execute; override; 
  public 
    constructor Create(ACreateSuspended: Boolean; Sound: TSound);
  end; 

constructor TTest1.Create(ACreateSuspended: Boolean; Sound: TSound);
begin
  FSound := Sound;
  inherited Create(ACreateSuspended);
end;