ADO Query mit Parameter

[Andidreas]

aloha zusammen,

ich versuch gerade verzweifelt eine Stored Procedure auf einer AS400 aufzurufen...
da ich mit der Stored Procedure komponente von ADO nicht so vertraut bin, wollte ich es gerade über eine normale ADOQuery versuchen...

In der ADO Query habe ich mir 3 Parameter Felder angelegt (2 Input, 1 Output)

mein source sieht wie folgt aus:

Delphi-Quellcode:

  Try
    With (dmas400_main.as400_query2) Do
    Begin
      Active := False;
      SQL.Clear;
      Parameters.ParamByName('KZGR').Value    := '3';
      Parameters.ParamByName('ZUKZ').Value    := ' ';
      Parameters.ParamByName('Return').Value := EmptyStr;
      dmas400_main.as400_query2.Prepared := True;
      SQL.Add('Call LIBARY.StoredProcedure1 (:KZGR, :ZUKZ, :Return)');
      ExecSQL;
    End;
  Except
    MessageDlg('Error SQL Query!', mtError, [mbOK], 0);
    Exit;
  End;

das komische ist, das er beim 1. versuch den SQL ohne probleme ausführt, allerdings ist danach der Return Parameter leer!
Beim 2. mal ausführen findet er auf einmal den 1. Parameter nicht mehr...

hat jemand eine idee woran es liegen könnte?