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

      fName: String;
      fImSpiel: Boolean;
      fSpielfeld: TSpielfeld;
      fDran: Boolean;
      fGegner: TCustomWinSocket;
      fFarbe: TBesetzt;
      fLastSendTime: TDateTime;
      SSSekTime: TDateTime;
      SSAnzSend: Cardinal;                    

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

 PD := TPDaten.Create; //so heißt die Klasse :D
PD.fName := ''; //leer initialisiern
PD.fImSpiel := False;
PD.fDran := False;
PD.fLastSendTime := Now;
PD.SSAnzSend := 0;
PD.SSSekTime := Now;
Socket.Data := PD;                    

1:
2:
3:
4:
5:

TPDaten(Socket.Data).fName := '';
Finalize( TPDaten(Socket.Data).fName );
TPDaten(Socket.Data).Free;
//FreeMem( Socket.Data, 27 ); //so ausprobiert oder auch ohne längenangabe...
TPDaten(Socket.Data).fSpielfeld.Free;                    

1:

TPDaten(Socket.Data).Free;                    

1:
2:
3:
4:
5:

type TPDaten = class
[...]
  public
    destructor Destroy; override;
end;                    

1:
2:

TPDaten(Socket.Data).Free;
TPDaten(Socket.Data).fSpielfeld.Free;                    

1:
2:
3:
4:

try
fSpielfeld.free;
except
end;                    

1:
2:

if (fSpielfeld<>nil) and Assigned(fSpielfeld) then
 fSpielfeld.Free;                    

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

var Spielfeld1, Spielfeld2, DASSpielfeld: TSpielfeld;
begin
DasSpielfeld := TSpielfeld.create;
//Werte von "DasSpielfeld" initialisieren
Spielfeld1 := DAsSpielfeld;
Spielfeld2 := DASSpielfeld;

//irgendwie damit mit arbeiten
//und am ende
if Random(2)=1 then
Spielfeld2.Free; //hier würde auch Freeandnil(Spielfeld2) nichts bringen oder?

if Assigend( Spielfeld1 ) then
  Spielfeld1.Free;                    

1:
2:
3:
4:
5:
6:

  //grobe skizzierung
-> Spieler.Gegner.Spielfeld := nil;
-> Spieler.Spielfeld.Free;
-> Spieler.Spielfeld := nil;
{Spieler.Gegner.Gegner := nil;
Spieler.Gegner := nil;}                    

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

type TSpielfeld = class
end;
type PSpielfeld = ^TSpielfeld;

type TSpieler = record
  Spielfeld: ^PSpielfeld; //pointer auf pointer zum Spielfeld
end;

procedure RunTest;
var spieler1, spieler2: TSpieler;
    ptrSpielfeld: PSpielfeld; //d.h. ist ein Pointer
begin
  Spielfeld^ := TSpielfeld.Create;
  spieler1.Spielfeld := @ptrSpielfeld;
  spieler2.Spielfeld := @ptrSpielfeld;
  ptrSpielfeld^.Free;
  ptrSpielfeld:= nil;
  if spieler1.Spielfeld^ <> nil then
    ShowMessage('Dieser Code funktioniert nicht wie Xion sich das vorstellt!');
end;                    

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

var spieler1, spieler2: TSpieler;
    ptrSpielfeld: PSpielfeld; //d.h. ist ein Pointer
    Spielfeld: TSpielfeld;
begin
  Spielfeld := TSpielfeld.Create;
  spieler1.Spielfeld := @Spielfeld;
  spieler2.Spielfeld := @Spielfeld;
  Spielfeld.Free;
  Spielfeld := nil; //<< Spielfeld wird gelöscht
  if spieler1.Spielfeld^ = nil then //<< Pointer darauf "erfahren" dabei von der Änderung.
    ShowMessage('Dieser Code funktioniert wie Xion sich das vorstellt!');
end;