type
  TSDK_0 = object
   public
    win_1:PControl;
    win_2:PControl;
    SDK_4:TSDK_3;
    SDK_5:TSDK_3;
....
   function ReadData1:integer;
  end;

SDK_4 := TSDK.create(self);
...
function TSDK_0.ReadData1:integer;
begin
  Result := win_1.width;
end;
...
procedure TSDK_3.method;
begin
  ...
   var2 := Parent.ReadData1;
  ...
end;

begin
  ...
   var2 := SDK_0.SDK_1.btn_111.text;
   var3 := SDK_0.SDK_2.btn_222.text;
   var4 := SDK_0.win_1.width;
  ...
end;

procedure TSDK_3.method;
begin
  ...
   var2 := SDK_0.ReadVar1;
   var3 := SDK_0.ReadVar2;
   var4 := SDK_0.ReadVar3;
  ...
end;

function TSDK_0.ReadVar1;
begin
  Result := SDK_1.ReadVar1;
end

function TSDK_1.ReadVar1;
begin
  Result := btn_111.text;
end

Add(Button,3453642,126,182)
{
 Left=125
 Top=180
 Data=String(sss)
 link(onClick,447347:doEvent1,[])
}
Add(Hub,447347,182,182)
{
 OutCount=3
 link(onEvent1,5039431:doMessage,[])
 link(onEvent2,10516220:doMessage,[(230,195)(230,237)])
 link(onEvent3,14203500:doMessage,[(230,202)(230,286)])
}
Add(Message,5039431,245,182)
{
}
Add(Message,10516220,245,231)
{
}
Add(Message,14203500,245,280)
{
}

  Message('sss');
  Message('sss');
  Message('sss');

  Message((a + b)*(c + d));
  Message((a + b)*(c + d));
  Message((a + b)*(c + d));

  Message(double2str((a + b)*(c + d)));[/code]
Если тот, кто формировал результат(данные типа code) правильно поставил subType.
А вот почему в direct.inc/_toCode проверяется subType, без проверки data_type=data_code - это для меня вопрос, сегодня...