Identifier expected

[euromode]

hallo zusammen,

bin ein totaler neuanfänger was das programmieren angeht.

mein problem besteht darin;

es soll eine abfrage von der datenbank erstellt werden, die dann in eine excel datei geschrieben wird.

Am ende kommt diese fehlermeldung

Code:

Compiling
Compiler: [Error] (99:1): Identifier expected
Compiling failed

Hab hier auch mal den text, für jede kleine hilfe bin ich im voraus schon sehr dankbar.

Code:

program abfrage;
const CRLF = #13+#10;
var 
  XlsApp, XlsWorkBook, XlsWorksheet: variant;
  cNETTOEINZEL,nAbZeile,i:integer;
  cGUID,cAUFNR,cBestellt,Verzeichnis,Dateiname,cARTNR:string;
  nBestellt,nNettoEinzel:currency;
  oDialog:TUDFDialog;
begin

  oDialog := TUDFDialog.Create;
  try
  
    oDialog.AddField('AUFNR.','AUFNR.',ftString,True,True,'',0);
    
    if oDialog.Execute then
    begin
           cAUFNR := oDialog.GetFieldValue('AUFNR.');
        oQuery.SQL.Text := 'SELECT kopfguid FROM kopf WHERE UPPER(AUFNR) LIKE UPPER ('+quotedstring(cAUFNR)+')';
        oQuery.Open;
        if oQuery.RecordCount = 1 then
        begin
          cGUID := oQuery.Fields.Fields[0].AsString;
        end
        else
        if oQuery.RecordCount > 1 then
        begin
          ShowMeldung('Mehr als 1 Ergebnis zu dieser Rechnungsnummer');
          exit;
        end
        else
        begin
          ShowMeldung('Rechnungsnummer: '+cAUFNR+' nicht gefunden!');
          exit;
        end
    end;
      

  Verzeichnis := '\D:\test\';
  Dateiname   := '123.xls';
  
  // Geschrieben wird ab Zeile 16 (in der ersten stehen die Überschriften)
  nAbZeile := 16;
  
  // Wir starten Excel im Hintergrund
  Dateiname := Verzeichnis + Dateiname;
  
  // Existiert die Datei?
  if not FileExists(Dateiname) then
  begin
    Dateiname := OpenDialog('Excel *.xls|*.xls','Exportdatei wählen');

    if not FileExists(Dateiname) then
    begin
      ShowMeldung('Die Datei : '+Dateiname+' ist nicht vorhanden!');
      exit;
    end;
  end;      
  
  
   XlsApp := CreateOleObject('Excel.Application');
  try
  XlsApp.Visible := False;
  XlsWorkbook  := XlsApp.Workbooks.Open(Dateiname, True, False); 
  XlsWorkbook  := XlsApp.Workbooks[1]; 
  XlsWorksheet := Xlsworkbook.Worksheets[1];   
                                                                                        //(postyp in (1,2)) AND
    oQuery.SQL.Text := 'SELECT ARTNR, Bestellt, NETTOEINZEL,zeilenid FROM position WHERE  kopfguid = '+quotedstring(cGUID)+' ORDER BY zeilenid';
    oQuery.Open;
    while not oQuery.eof do
    begin
      cARTNR := oQuery.Fields.Fields[0].Asstring;
      nBestellt := oQuery.Fields.Fields[1].AsCurrency;
      nNETTOEINZEL := oQuery.Fields.Fields[2].AsCurrency;
      
      
      //writeln(cARTNR);
      
      
      i:= nAbZeile; 
       
      XlsWorksheet.Cells[i,'A'].Value := cARTNR;
      XlsWorksheet.Cells[i,'B'].Value := nBestellt;
      XlsWorksheet.Cells[i,'C'].Value := nNETTOEINZEL;    
     
      oQuery.Next;
      
      i:= i +1; 
    
    end;
    
    //application.processmessages;
    finally
      begin
        oDialog.Free;
      end;
    end;
     
end.