type
THIRun_1C_OLE = class(TDebug)
private
Ole1C : OleVariant;
r:string;
Ole1C := CreateOleObject(s);
ResOpen:=Ole1C.Initialize(Ole1C.RMTrade,s1+m+s2+s3,'NO_SPLASH_SHOW');
Да нет просто предложеннай тобой схема передачи OleVAriant в другой компонент через String не работает,
потому что операция
r:= VarToStr(Ole1C);
Ole1C := r;