Stringlist bringt Service zum Absturz

[value is NULL]

Hi Leutz

Habe folgenden code:

Delphi-Quellcode:

//Database Connect
sqlst.connect_extdb(server,dbpwd,dbuser,dbname);
sl := TStringlist.Create;
sqlst.DoQuery(query,sl); //ID's der Geräte
while stringlist_count <= sl.Count do begin
        addtolog(1, 'Stringlist_count: '+inttostr(stringlist_count));
        id := sl[stringlist_count];
        vlx_Core.updatedb_archivflag(id);
        stringlist_count := stringlist_count + 1;
end;
sl.Free;

folgendes steht in meinem LOG:

Code:

05.05.2011 09:03:26 [DEBUG] ---------------------------------
05.05.2011 09:03:26 [DEBUG] Stringlist_count: 0
05.05.2011 09:03:26 [DEBUG] Archivflag Update Done!
05.05.2011 09:03:26 [DEBUG] Stringlist_count: 1
05.05.2011 09:03:26 [DEBUG] Archivflag Update Done!
05.05.2011 09:03:26 [DEBUG] Stringlist_count: 2
05.05.2011 09:03:26 [DEBUG] Archivflag Update Done!
05.05.2011 09:03:26 [DEBUG] Stringlist_count: 3
05.05.2011 09:03:26 [DEBUG] Archivflag Update Done!
05.05.2011 09:03:26 [DEBUG] Stringlist_count: 4
05.05.2011 09:03:26 [DEBUG] Archivflag Update Done!
05.05.2011 09:03:26 [DEBUG] Stringlist_count: 5
05.05.2011 09:03:26 [DEBUG] Archivflag Update Done!
05.05.2011 09:03:26 [DEBUG] Stringlist_count:

ich schätze mal das stringlist_count den sl.count überschreitet?! Dadurch stürzt mein Dienst immer ab!

Wie kann ich soetwas abfangen?!

LG