Como passar uma Classe por parâmetro no TFDStoredProc (FireDac)

Estou querendo passar uma classe por parametro utilizando TFDStoredProc, mas não encontro material de referencia.

Criei um pequeno exemplo da situação:


TMyClass = class(TObject)
private
FID : integer;
FNome : string;
public
property ID : integer write FID read FID;
property Nome : string write FNome read FNome;
end;



procedure EnviaOperacao()
var obj: TMyClass;
begin

obj:= TMyClass.create;
try
obj.ID := 1;
obj.Nome := Nome;

//Como Fazer essa passagem de parametro ?????
FDStoredProc.findParam('Value').asStream:= "obj;"

FDStoredProc.ExecProc();

finally
FreeAndNil(obj)
end;
end;


Estou utilizando:

Windows 10
Delphi XE 10