Insert into

[dataspider]

1 Sekunde für 1 Insert in IBExpert ist eigentlich auch langsam, aber na ja...
43 Sekunden füe 1 Insert aus dem Code - da stimmt was nicht

Wenn du IBExpert hast, dann geht duch mal ins Databas Monitoring und schau dir vor allem die Oldest Active Transaction etc. an.
Die Werte sollten nah beieinader liegen, eigentlich um 1 differieren.
Da du IBO benutzt, solte es eigentlich OK sein...

Wenn man wissen will, ob die DB einen weg hat, dann Backup und Restore...

Wie sind die Einstellungen in IBO und was verwendest du? (TIBOTransaction oder TIB_Transaction etc., TIBOQuery oder ...)
Am schnellsten ist IMO TIB_DSQL.
Warum durchläufst du in PatblattQry alle Datensatze unf machst dann ein

Code:

if (PatblattQry.FieldByName('TYP').AsString <> 'Z') then

Warum nicht gleich im SQL von PatblattQry ein

Code:

where typ <> 'Z'

Dann kannst du das if weglassen.