Delphi-PRAXiS - Zugriffsverletzung

anbei der Quellcodeteil...

Bei SQL.Clear springt er raus...
Delphi-Quellcode:
			with Q_RelAc do

               begin

                  SQL.Clear;

                  if fMain.IniWerte.LVSFile = '1' then

                  begin

                      Q_RelAc.SQL.Add('select ik, mnr, ktxt, uschl, usartklasse, usplatzgroesse, usmaxbest, gewicht, me, createdate '+

                              'from relac '+

                              'where '+

                              'uslvs = :p0');

                  end

                  else

                  if fMain.IniWerte.LVSFile = '3' then

                  begin

                      Q_RelAc.SQL.Add('select x.ik, a.mnr, a.ktxt, a.uschl, x.usartklasse, x.usplatzgroesse, x.usmaxbest, a.gewicht, a.me, a.createdate '+

                              'from relac a, relacx x '+

                              'where '+

                              'x.uslvs = :p0 '+

                              'and x.mnr = a.mnr');

                  end;

                  Params[0].AsInteger := lvsReady;

                  Open;

                  First;

                  while not EoF do

                     begin

                        //StartTimer('Vorbereitung für ASCII-Datei (Stammdaten)');

                        S := FormatDateTime('yyyymmddhhnnsszzz', Now);

                        F := Format(fnMMArtikel, [S]);

//                        Z := FieldByName('Ik').AsInteger;

                        Z := Fields[0].AsInteger;

                        //StopTimer;

                        //StartTimer('Schreiben der ASCII-Datei (Stammdaten)');

                        WriteDownloadFile2(

                           D[1] + F,                                // Dateiname

                           D[2] + F,                                // Dateiname für Sicherungskopie

                           Fields[1].AsString,

                           Fields[2].AsString,

                           Fields[3].AsString,

                           Fields[4].AsInteger,

                           Fields[5].AsInteger,

                           Fields[6].AsFloat,

                           Fields[7].AsFloat,

                           Fields[8].AsString);

// Geändert 09.07.2006 /EH wegen variablem SQL ac / Acx

//                           FieldByName('MNr').AsString,             // Artikel

//                           FieldByName('KTxt').AsString,            // Beschreibung 1

//                           FieldByName('Uschl').AsString,           // Beschreibung 2

//                           FieldByName('USArtKlasse').AsInteger,    // Artikelklasse

//                           FieldByName('USPlatzGroesse').AsInteger, // Platzgröße

//                           FieldByName('USMaxBest').AsFloat,        // Max. Bestand

//                           FieldByName('Gewicht').AsFloat,          // RefGewicht

//                           FieldByName('ME').AsString);             // Einheit

                        //StopTimer;

                        //StartTimer('Update RELAC (Status=0)');

                        UpdateStatusRELAC(Z, lvsOk);

                        //StopTimer;

                        Next;

                     end;

                  Close;

                  Free;