* Patch from Ondrej Pokorny to set prepared in Prepare (bug ID 33010)

git-svn-id: trunk@37951 -

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

@@ -229,6 +229,7 @@ begin
     FQuery:=AParams.ParseSQL(Buf, false, sqEscapeSlash in FConnection.ConnOptions, sqEscapeRepeat in FConnection.ConnOptions, psSimulated, ParamBinding, FParamReplaceString)
   else
     FQuery:=Buf;
+  FPrepared := True;
 end;
 
 function TDBLibCursor.ReplaceParams(AParams: TParams): string;