IDataReciver = interface(IDispatch)
    ['{3C3CB45B-79BD-4B25-A415-2C63CA3E77D1}']
    procedure ReciveData(pData: OleVariant); safecall;
  end;

type
  TDataReciver = class(TAutoObject, IDataReciver)
  protected
    procedure ReciveData(pData: OleVariant); safecall;

  end;
...
procedure TDataReciver.ReciveData(pData: OleVariant);
var
    i: Longint;
    p,pBuffer: PByte;
begin
 pBuffer:= AllocMem(VarArrayHighBound(pData,1)-VarArrayLowBound(pData,1));
 p := pBuffer;
 for i := VarArrayLowBound(pData,1) to VarArrayHighBound(pData,1) do begin
  p^ := Byte(pData[i]);
  inc(p);
 end;
// Тут твоя обработка....
end;
// Просто распаковываем вариант в указатель на байты
.....

initialization
  TAutoObjectFactory.Create(ComServer, TDataReciver, Class_DataReciver,
    ciSingleInstance, tmApartment); // Создаем синглинстанс.
end.

function ToVarArray(const value): Variant;
var p : PByte;
    i : Integer;
begin
 result := VarArrayCreate([0, sizeof(value)-1],varByte);
 p := @value;
 i := 0;
 while (i<sizeof(value)) do begin
   result[i] := p^;
   inc(i);
   inc(p);
 end;
end;
// упаковка ПРОСТЫХ типов в varArray. Динамические структуры пакуются естественно по другому..

var
 pReciver: IDataReciver;
 v: Variant;
 value : record
   a: Integer;
   b: Word;
 end;
begin
 pReciver := CreateObject(DataReciver_CLSID) as IDataReciver;
 if  pReciver = nil then
  // Ну типа, облом.
 end;
 v := ToVarArray( value);
 pReciver.ReciveData(v);
 pReciver := nil; // Грохаем нафиг...