[fpc-pascal] TBufDataset broken in fixes_2_2

[Funky Beast]

Hi,

TBufDataset is broken in latest fixes_2_2.

Can be reproduce with following code:

var s: TSQLQuery;
begin
 s := TSQLQuery;
 s.Free;
end;

Compiling fcl-db with debug info, the above code excepts
at TBufDataset.Destroy destructor at the following position:

For I:=0 to Length(FIndexes)-1 do
    FreeAndNil(Findexes[I]);

It stops at the FreeAndNil line.

Latest trunk 2.3.1 has no such problem.

Should I file a bug report?

Regards,
Funky Beast