var Gefunden: Boolean;
    I, J: Cardinal;
begin
  SetLength(EndErgebnis, 1);
  EndErgebnis[0] := Addr(SuchErgebnis[0]^); // SuchErgebnis hat IMMER mindestens einen Eintrag
  for I := 1 to high(SuchErgebnis) do
    begin
      gefunden := false;
      for J := 0 to high(EndErgebnis) do
        if EndErgebnis[J]^ = SuchErgebnis[I]^ then
          begin
            gefunden := True;
            break;
          end;
      if not gefunden then
        begin
          SetLength(EndErgebnis, Succ(Length(EndErgebnis)));
          EndErgebnis[high(EndErgebnis)] := Addr(SuchErgebnis[I]^);
        end;
    end; // for I
end;