if Command='Add UniGrObjects3' then begin
        Buff:=Parameters;
        Result:=DataInt.UniMessage(Command,Buff);
        Buff:=Unassigned;
      end else begin
        Result:=DataInt.UniMessage(Command,Parameters);
      end;

function AddUniGrObjects3(Core: TCore; Param2: OleVariant): OleVariant;
var
  Buff      : AnsiString;
begin
  Buff:=AnsiString(Param2);
  // работаем с Buff
end;


function UniMessageHandler(Core: TCore; const Param1, Param2: OleVariant): OleVariant;
begin
   Result:=AddUniGrObjects3(Core, Param2);
end;


function TMP_DataInt.UniMessage(ParamIn1, ParamIn2: OleVariant): OleVariant;
begin
  Result:=UniMessageHandler(ParamIn1, ParamIn2);
end;

function UniMessageHandler(const Param1, Param2: OleVariant): OleVariant;
begin
  Result:=UniMessageHandler(Core,Param1,Param2);
end;