Query trägt in Excel Daten in erster Zeile ein WISO?

[Albi]

Ich übertrage die Daten aus einem Query in ein Excel Table, das Funktioniert auch, nur trägt er sie immer nur in die erste Excelzeile ein. Was muß ich Delphi sagen, das wenn im Query eine Zeile gelesen wurde und diese zu Ende ist, das in Excel eine neue Zeile angefangen werden soll.

Code:

while not Form1.Query1.EOF do
begin
  {Die Werte aus dem Stringgrid (oder aus einer Datei oder sonstwo her), schrei-
  ben wir jetzt in das Excel.Worksheet.}
 for zeile := 0 to Form1.Query1.FieldCount-1 do
    for spalte := 0 to Form1.Query1.FieldCount-1 do
       Excel.Cells[Spalte+1].value := Form1.Query1.Fields[Spalte].AsString;

Ich habe es schon mit einer Abfrage versucht, da das ja funktioniert, wenn man die Daten in eine Textdatei schreibt aber bei Excel funzt das nicht.