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

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//fügt einen Tip in den Suchbaum ein
//@Tip: Tipp der hinzugefügt werden soll;
procedure TTipTree.Add(const Tip: TTip);
var
  TmpItem: TTipTreeItem;
  i: Integer;
  b: Byte;
begin
  TmpItem := fRoot;
  for i := 0 to fGameCount-1 do begin 
    b := GetTipChar(Tip, i);
    fTipCheck[b] := fTipCheck[b] and not(1 shl i);
    if not Assigned(TmpItem[b]) then begin 
      TmpItem[b] := TTipTreeItem.Create; //HIER ist der Fehler
      TmpItem[b].fValue := b; 
    end;
    TmpItem := TmpItem[b]; 
  end;
  inc(fCount);
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:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:

type
  TTipTreeItem = class(TObject)
  private
    fValue: Byte;
    fChildren: array[0..2] of TTipTreeItem;

    procedure SetChild(Index: Integer; Value: TTipTreeItem);
    function GetChild(Index: Integer): TTipTreeItem;
  public
    property Value   : Byte         read fValue   write fvalue;
    property Children[Index: Integer]: TTipTreeItem read GetChild write SetChild; default;

    procedure Clear;
    constructor Create;
    destructor Destroy; override;
  end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//Set-Methode der Children-Eigenschaft
procedure TTipTreeItem.SetChild(Index: Integer; Value: TTipTreeItem);
begin
  fChildren[Index] := Value;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//Get-Methode der Children-Eigenschaft
function TTipTreeItem.GetChild(Index: Integer): TTipTreeItem;
begin
  result := fChildren[Index];
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//gibt alle Kinder das Objekts frei
procedure TTipTreeItem.Clear;
var
  i: Integer;
begin
  for i := 0 to 2 do
    FreeAndNil(fChildren[i]);
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//erstellt das Objekt
constructor TTipTreeItem.Create;
var
  i: Integer;
begin
  inherited Create;
  for i := 0 to 2 do
    fChildren[i] := nil;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//gibt das Objekt frei
destructor TTipTreeItem.Destroy;
begin
  Clear;
  inherited Destroy;
end;                    

1:
2:
3:
4:

class function TObject.NewInstance: TObject;
begin
  Result := InitInstance(_GetMem(InstanceSize));
end;                    

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

function SysGetMem(size: Integer): Pointer;
// Allocate memory block.
begin
{...}
  try
    if IsMultiThread then EnterCriticalSection(heapLock);
{...}
  finally
    if IsMultiThread then LeaveCriticalSection(heapLock);
  end;
end;