ComboBox mit Daten einer SQL-Abfrage füllen

[Sharky]

Delphi-Quellcode:

begin
  ComboBox1.Clear  // Vorher immer brav die ComboBox leeren
  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;
     First; // Gehe zum ersten Datensatz
     While Not (Eof) do  //Gibt es noch Datensätze
     begin
       ComboBox1.Items.Add(FieldByName('Datum').As String); //Hier liegt das Problem
       Next;  // Gehe zum nächsten Datensatz.
     end;
     Active := False;
  end;
end;

[Edit]Und wieder war ich zu langsam Dafür habe ich schöne kommentare [/edit]