* Check against operation on unopend statement, patch from Lacak2 Mantis #19943

git-svn-id: trunk@18949 -

packages/fcl-db/src/sqldb/interbase/ibconnection.pp

@@ -615,6 +615,7 @@ procedure TIBConnection.UnPrepareStatement(cursor : TSQLCursor);
 
 begin
   with cursor as TIBcursor do
+    if assigned(Statement) Then
       begin
         if isc_dsql_free_statement(@Status[0], @Statement, DSQL_Drop) <> 0 then
           CheckError('FreeStatement', Status);