SQLStoredProc Parameter zur Laufzeit

[GuenterS]

Hallo,

ich versuche mich gerade an einer Unit, welche Logging funktionen bieten soll und möchte die ganzen Elemente zu Fuß erstellen.

So möchte ich auch eine TSQLStoredProc Komponente erzeugen, welche eine StoredProcedure mit einem Ausgabe-Parameter aufrufen soll. Bis jetzt gelingt mir das aber nicht so recht.

Delphi-Quellcode:

   
    with TSQLStoredProc.Create(nil) do
    try
      SQLConnection := _DBConn;
      StoredProcName := 'Gen_id';
      Params.CreateParam(ftInteger, 'ID', ptOutPut).AsInteger := 0;
      ExecProc;
      Result := Params.ParamByName('ID').AsInteger;
    finally
      Free;
    end;

Sobald ich über die ExecProc stelle gehen möchte bekomme ich die Meldung: Listenindex überschreitet Maximum(0). Was mache ich falsch?