Globale Variablen!

[Die Muhkuh]

Na,

machs doch dann einfach so:

Delphi-Quellcode:

TRahmenklasse = class
private

public
  Spieler1: TSpieler;
  Haus: TGebaeude;
  ...

  constructor Create;
  destructor Destroy; override;
end;

procedure TRahmenklasse.Create;
begin
  Spieler1 := TSpieler.Create;
  Haus := TGebaeude.Create;
end;

procedure TRahmenklasse.Destroy;
begin
  Spieler1.Free;
  Haus.Free;
end;