Function TCoreShell.SendDataPipe  (SendHandle:THandle;var Data:TFluxPipe; nMessage:integer):Integer;
Begin
    CDS.dwData := nMessage;           // 
    CDS.cbData := SizeOf(Data); //тут достаточно большой массив данных в виде записи (думаю 10+мб)
    CDS.lpData := @Data;     //
    result := SendData (CDS,SendHandle);
End;

Function TCoreShell.SendData(const copyDataStruct: TCopyDataStruct; receiverHandle : THandle):integer ;
begin
  result := SendMessage(receiverHandle, WM_COPYDATA, Integer(Handle),   Integer(@copyDataStruct)) ;
end;

procedure TForm_3DViewer.WMCopyData(var MessageData: TWMCopyData);
Var
 Data:integer;
begin 
  Data:=MessageData.CopyDataStruct.dwData;
...
  if Data=9 then    //нейтронные поля
  begin
    GetAFluxMessage (MessageData)
  end;

  if Data=10 then  //перемещение
...
end;

Procedure TForm_3DViewer.GetAFluxMessage (var MessageData: TWMCopyData);
var
 i,j,k:integer;
 FluxPipe: TFluxPipe;
Begin
    FluxPipe:= TFluxPipe(MessageData.CopyDataStruct.lpData^);
   ... много кода присвоения.   
End;

  result := SendMessage(receiverHandle, WM_COPYDATA, WPARAM(Handle),
            LPARAM(@copyDataStruct)) ;

SizeOf(Data);

TFluxInHeight = record
 InHeight: array [0..100] of Single;
end;

TFluxPipe = record   //передача сообщение в 3DViewer
 CutOff    :Extended;
 Time      :Extended;
 NFA       :Integer;
 NHeight   :Integer;
 InFA:     array [1..500] of TFluxInHeight;
 Height:   array [0..100] of Single;
end;

 CutOff    :Extended;
 Time      :Extended;