Was mache ich falsch? Firebird rattert wie irre auf der HDD

[Gecko]

So Update:

Der Code schafft jetzt 8000 in 4 Sekunden...ich denk viel besser wirds nicht gehn.

Delphi-Quellcode:

zconnection1.StartTransaction;
qrsecond.SQL.Text:='INSERT INTO SPAM (WORD) VALUES (:WORD)';

for I := 0 to sl.Count-1 do begin

qrsecond.ParamByName('WORD').AsString:=sl.Strings[i];
qrsecond.ExecSQL;

end;

zconnection1.Commit;

Allerdings muss ich vorher bei jedem Eintrag ja noch nen Select machen um zu schaun ob der Eintrag schon drin ist und dann nen Update um den Zähler um eins zu erhöhen,
wie oft das Word schon vorgekommen ist. Falls er nicht drin ist eben den Insert hier.

Hm gibts da irgenden Weg um das halbwegs effizient zu lösen?