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

[Gecko]

Hab ich gemacht, bringt aber in Sachen Rappelei 0,0

Delphi-Quellcode:

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

for I := 0 to sl.Count-1 do begin
qrsecond.ParamByName('WORD').AsString:=sl.Strings[i];
qrsecond.ExecSQL;
end;

zconnection1.Commit;