type
  TGame = class
  private
    //visible only inside the unit/class
    FDeveloper: string;
  public
    Name: string;
    Year: Integer;
    constructor Create;
    procedure ShowDeveloper;
  end;

constructor TGame.Create;
begin
  FDeveloper := 'XYZ';
end;

procedure TGame.ShowDeveloper;
begin
  WriteLn(FDeveloper);
end;

var
  Game: TGame;
begin
  Game := TGame.Create;
  Game.Name := 'Heroes';
  Game.Year := 1995;
  Game.ShowDeveloper;
end.