Delphi XE2, BDE und TStoredProc

[bgeltenpoth]

Hallo zusammen,

hat jemand eine Ahnung ob es unter Delphi XE2 Probleme mit der BDE TStoredProc Komponenten gibt? Grundsätzlich kann ich die BDE Komponenten ja noch benutzen (ja ich weis, die sind veraltet und sollten eigentlich nicht mehr benutzt werden)
Ich habe allerdings eine Alt-Anwendung die ich noch supporten muss und BDE vorraussetzt.
Grundsätzlich kann ich Queries absetzen und erhalte auch Ergebnisse. Mit Stored Procedures bekomme ich aber Ärger:

Code:

 
StoredProc := TStoredProc.create(nil);
try
   // TDatabase zuweisen, geht über eine Factory...
  (Factory as TD5DAOFactoryBDE).Link(StoredProc);
  StoredProc.StoredProcName := 'pr_class_create';
   // Parameter erstellen
  StoredProc.Params.CreateParam(ftinteger,'@parent_class_id',ptinput);
  StoredProc.Params.CreateParam(ftstring,'@code',ptinput);
  StoredProc.Params.CreateParam(ftstring,'@long_name',ptinput);
  StoredProc.Params.CreateParam(ftstring,'@short_name',ptinput);
  StoredProc.Params.CreateParam(ftstring,'@description',ptinput);
  StoredProc.Params.CreateParam(ftinteger,'@color',ptinput);
  StoredProc.Params.CreateParam(ftinteger,'@killdate_offset',ptinput);
  StoredProc.Params.CreateParam(ftstring,'@full_name',ptinput);
  StoredProc.Params.CreateParam(ftinteger,'@created_class_id',ptoutput);

  // ...und Parameter laden....
  StoredProc.ParamByName('@code').asstring := Value.Code;
  StoredProc.ParamByName('@long_name').asstring := Value.LongName
  StoredProc.ParamByName('@short_name').asstring := Value.ShortName;
  StoredProc.ParamByName('@description').asstring := Value.Description
  StoredProc.ParamByName('@color').asinteger := Value.color;
  StoredProc.ParamByName('@killdate_offset').asinteger := Value.KilldateOffset;
  StoredProc.ParamByName('@full_name').asString := Value.Fullname;}
  StoredProc.ParamByName('@parent_class_id').asinteger := Value.Parent.oid;
  StoredProc.ParamByName('@code').asstring := Value.Code;
  StoredProc.Prepare;
  for i := 0 to StoredProc.Params.Count-1 do
          OutputdebugString(pWidechar('Parameter['+IntToStr(i)+']: '+
                                     StoredProc.Params[i].Name+
                                     ' Value='+
                                     StoredProc.Params[i].AsString));

  StoredProc.execProc;
  // hier soll noch ein bißchen was passieren....
finally
       StoredProc.free;
end;

Bei ExecProc bekomme ich eine Exception, das die StoredProc einen NULL Wert in die Tabelle long_name einfügen will, was nicht erlaubt ist. Der Wert für den Parameter @long_name (der dem Wert für die Spalte long_name entspricht) ist aber übergeben worden und nicht NULL. Durch die OutputDebugString Meldungen sehe ich das die Parameter Werte den Eigenschaften des Objektes Value entsprechen.
Trace ich den Traffic mit Wireshark kann ich sehen, dass die Parameter und deren Werte auch übergeben werden, trotzdem gibt es diese Exception. Die Ursprüngliche Unit ist mit Delphi2007 erstellt worden und funktionierte dort auch. Das Projekt sollte jetzt nach kleinen Änderungen mit Delphi XE2 neu kompiliert werden, seitdem bekomme ich die Exceptions an dieser Stelle.
Hat jemand eine Erklärung dafür?