Parameters y ProcedureName de TAdoStoreProc

[Nelet]

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.

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.