Zu wenig Arbeitsspeicher für DISTINCT

[Cuchulainn]

Ich habe folgende Funktion:

Delphi-Quellcode:

procedure TMenue.PHauptmenuLaden;
var Query: TQuery;
    IntZaehler: Integer;
begin
  Query := TQuery.Create(FrmMain);
  try
    with Query do
    begin
      Close;
      Sql.Clear;
      Sql.Add('SELECT DISTINCT MainMenu FROM "' + StrTabelle + '"');
      Open;
    end;
    for IntZaehler := 0 to Query.RecordCount - 1 do
    begin
      slHauptmenu.Add(Query.Fields.Fields[0].AsString);
      Query.Next;
    end;
  finally
    Query.Free;
  end;
end;

Ich bekomme die Fehlermeldung "Zu wenig Arbeitsspeicher für diese Operation". Aber nur, wenn ich das DISTINCT in der SQL-Anweisung habe. Ohne funktioniert es. Das kann doch nicht wirklich am Arbeitsspeicher liegen
Hat jemand eine Idee?