Not meaning to sound rude but

> with ibdataset1, ibdataset2 do
> begin
> Close;
> Parambyname('thecode').AsString :=
> Dataset.fieldbyname('mycode').asstring;
> Prepare;
> open;
> end;

looks like a pretty meaningless piece of code.
What are you trying to do?
Zip it and send it to martin@... and I'll have a look at it...