* Also in ExecuteDirect the allocation and preparation of a cursor should be

   as close together as possible

git-svn-id: trunk@13001 -

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

@@ -552,15 +552,12 @@ begin
   if not ATransaction.Active then ATransaction.StartTransaction;
 
   try
-    Cursor := AllocateCursorHandle;
-
     SQL := TrimRight(SQL);
-
     if SQL = '' then
       DatabaseError(SErrNoStatement);
 
+    Cursor := AllocateCursorHandle;
     Cursor.FStatementType := stNone;
-
     PrepareStatement(cursor,ATransaction,SQL,Nil);
     execute(cursor,ATransaction, Nil);
     UnPrepareStatement(Cursor);