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

[Albi]

So sieht mein Code mein Code im ganzen aus.

Code:

var
   zeile, spalte: Integer;
  Excel                  : variant;
begin
  try
     Excel := CreateOleObject('Excel.Application');
  except
     ShowMessage('Excel kann nicht gestartet werden');
    exit;
  end;
  Excel.Visible := true;
  Excel.Workbooks.add;
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.RecordCount-1 do
    for spalte := 0 to Form1.Query1.FieldCount-1 do
       Excel.Cells[Zeile+1,Spalte+1].value := Form1.Query1.Fields[Spalte].AsString;
     Form1.Query1.Next;
  end;
end;

Ich habe jetzt zwar verstanden was Du meinst aber mir fehlen sämtliche Kenntnisse um dieses jetzt auch noch sinnvoll anzuwenden. Ich beschäftige mich noch nicht solang damit.

Ich nehme mir jetzt also eine Variable X: Integer und soll diese dann nach jedem Schleifendurchlauf um 1 erhöhen und diesen Wert dann Cells zuweisen. Stimmt doch, oder?