No se si he entendido bien lo que quieres hacer, pero pienso que podrías probar algo como esto, después de asignar el nombre del procedimiento. Sustituyendo el ADOQuery por ADOStoredproc.
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
parametros:TParameters;
begin
parametros:=AdoQuery1.Parameters; //recoges los parametros definidos en diseño
AdoQuery2.Parameters:=parametros; //se los asignas al objeto que quieras.
AdoQuery2.Parameters.ParamByName('SOC').Value:='01';
AdoQuery2.SQL:=AdoQuery1.SQL;
end;
Aunque lo que no se pasa así son los valores de los parámetros.
Si el numero de parametros es el mismo y quieres pasar los mismos valores con recorrer todos los parametros y asignando el valor que tenian en el storedproc1 al storedproc2 creo que lo tendrias solucionado.
Espero haberte ayudado, y sino, por lo menos me he escaqueado un ratito..leches.
Suerte.