ComboBox mit Daten einer SQL-Abfrage füllen

[Coder18]

Hallo Allezusammen!

ich bins schon wieder.
Hab ein kleines Problem mit dem Füllen einer ComboBox mit Daten aus einer SQL-Abfrage:

Zur Erklärung ich hab auf meinem Formular eine Datenbank-Tabelle in der mehrere Daten
(Mehrzahl von Datum) in einer Spalte stehen. Diese Daten möchte ich ,nachdem ich Sie per
SQL-Anweisung gruppiert habe, zu einer ComboBox hinzufügen.

Die SQL-Anweisung sieht folgendermaßen aus:

Delphi-Quellcode:

Select Aus_Name As Name, Aus_Datum As Datum 
from "W:\Jagusch\FSystem\Fragesystem21_Echt\DB\Auswertung.db" 
Where Aus_Name = "Max" 
Group By Aus_Name,Aus_Datum;

Diese Anweisung funktioniert auch so wie ich es wollte.

Die Probleme liegen bei der Umsetzung in Delphi. Der Code dazu sieht so aus:

Delphi-Quellcode:

With Query1 do begin
     Active := False;
     SQL.Add('Select Aus_Name As Name, Aus_Datum As Datum');
     SQL.Add('From Tabelle1');
     SQL.Add('Where Aus_Name = "Max"');
     SQL.Add('Group By Aus_Name, Aus_Datum');
     Open;
     ComboBox1.Items.Add(FieldByName('Datum').As String); //Hier liegt das Problem
     Active := False;
end;

Wenn ich den Code so ausführe wird immer nur ein Datum in der ComboBox angezeigt.
Was mache ich falsch?

Danke und Gruß

Tim