Creo puedes solucionanrlo asi en un TADOQuery en la propiedad SQL pones:
Código SQL
[-]declare@AnoAClonar CHAR(4), @AnoClonado CHAR(4), @Salida CHAR(255)
set @AnoAClonar = :AnoClonar
set @AnoClonado = :AnoClonado
Exec Clonar @AnoAClonar, @AnoClonado, @Salida OUTPUT
Set :Salida = @Salida
En su propiedad Parameters Listará 3 Los cuqales son (AnoClonar, AnoClonado, Salida),
Luego en Delphi lo Llamarias asi: ahi escogemos
DataType ftstring para los 3 y solo para el parámetro "Salida" en
Direction ponemos
pdOutput.
Código Delphi
[-] with ADOQuery1 do
Begin
Close;
Parameters.ParamByName('AnoClonar').Value := edit1.text; Parameters.ParamByName('AnoClonado').Value := edit2.text; Parameters.ParamByName('Salida').Value := ''; ExecSQL;
Edit3.Text := Parameters.ParamByName('Salida').Value; end;
Salu2