type

  TWoerterZaehlen = class(TObject)
    // Wort: String;
    // Anzahl: integer;

  protected
    Fwort: string;
    Fanzahl: integer;
  public type
    ArrofTWoerterZaehlen = array of TWoerterZaehlen;
  procedure setFwort(const Value: String);
  procedure setFanzahl(const Value: integer);
  constructor create(Anz: integer; Wor: String); overload;
  constructor create(Wor: String); overload;
  property Wort: String read Fwort write setFwort;
  property Anzahl: integer read Fanzahl write setFanzahl;
function HaeufigkeitDerWorte2(st_w1: tstringlist): ArrofTWoerterZaehlen; // Hier ist der Fehler angezeigt
  function toString(arrofsort: TWoerterZaehlen.ArrofTWoerterZaehlen): String;
  end;

implementation

function HaeufigkeitDerWorte2(st_w1: tstringlist)
  : TWoerterZaehlen.ArrofTWoerterZaehlen;