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

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

  public
    FSound:TSound;
    constructor Create(ACreateSuspended: Boolean; Sound: TSound);

  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

type
  TSound = class
    private
      GoFlag:Integer;
      test:TTest1;
      
    protected

    public
      PlayListe: array of TPlayListe;
      Random_Music: array of TPlayListe;
      laden,noTime:Boolean;
      AIndex:Integer;
      constructor create(pSoundFiles,SoundDir,DefaultExt:String;flag:Integer); // Lädt die Angebenden Sound Files
      procedure StopMusic; // stop alles geladene musik dateien.
      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:
11:
12:
13:
14:

type 
   //vorwärtsdeklaration
  TTest1 = class;
  TSound = class;  

   //eigentliche dekl.
TTest1 = class(TThread)
  private
    { Private}
   ...
  TSound = class
    private
      GoFlag:In
   ...					

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

unit Unit2;

interface

uses classes, unit3;

type
  TTest1 = class(TThread)
  private
  protected
    Sound:TSound;
  public
  published
  end;

implementation

end.					

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:

unit Unit3;

interface

uses classes;

type
  TSound = class(TObject)
  private
    Test:TObject;  // nur als tObject
    procedure Zugriff;
  protected
  public
  published
  end;

implementation

uses unit2;  //in implemention teil unit 

Procedure TSound.Zugriff;
Var myThread:TThread;
  begin
    myThread := TThread(Test); //zugriff
  end;

end.					

1:

PSound = ^TSound;					

1:

if PSound^.noTime = true then ShowMessage('Test'); // falls noTime ein Boolean ist					

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:

 TTest1 = class(TThread)
    public
    test:STring;
  end;

    TSound = class
    private
      GoFlag:Integer;
      test:TTest1;

    protected

    public
      PlayListe: array of TPlayListe;
      Random_Music: array of TPlayListe;
      laden,noTime:Boolean;
      AIndex:Integer;
      constructor create(pSoundFiles,SoundDir,DefaultExt:String;flag:Integer); // Lädt die Angebenden Sound Files
      procedure StopMusic; // stop alles geladene musik dateien.
      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;

  TTest2 = class(TTest1)
    private

    protected
      procedure Execute; override;

    public
      PSound:TSound;
      Test:String;
      constructor Create(ACreateSuspended: Boolean);
  end;