Add(Hub,12695605,112,131)
{
 link(onEvent1,11936383:MathStr,[(163,137)(163,144)])
 link(onEvent2,11936383:calc,[(163,144)(163,137)])
}
Add(Button,15154087,14,131)
{
 Left=20
 Top=35
 Data=String(SIN(1))
 link(onClick,12695605:doEvent1,[(82,137)(82,137)])
}
Add(Label,7730049,295,131)
{
 Left=215
 Top=40
}
Add(UseHiDLL,11936383,203,131)
{
 DLLName="calc_new_DLL"
 link(Reslt,7730049:doText,[(271,137)(271,137)])
}
Add(MathParse,981498,189,182)
{
 Point(doMathStr)
 Point(onError)
 link(onResult,13306485:doText,[])
}
Add(Label,13306485,294,182)
{
 Left=200
 Top=80
}
Add(Button,12568681,14,182)
{
 Left=20
 Top=95
 Data=String(SIN(1))
 link(onClick,2254641:doEvent1,[])
}
Add(Hub,2254641,91,182)
{
 link(onEvent1,981498:doMathStr,[(170,188)(170,195)])
 link(onEvent2,981498:doCalc,[(170,195)(170,188)])
}

  dt.ldata := nil;

destructor THIUseHiDLL.Destroy;
begin
   if FID > 0 then
     FreeLibrary(FID);
   inherited;
end;

dt.sdata := pchar(@_data.sdata[1]);[/code]и
dt.sdata := pchar(_data.sdata);[/code]
- не одно и то же :wink:

procedure dll_Event(var _Data:TData; Index:word; Param:pointer);
begin
  THIUseHiDLL(Param)._Dll_Event(_Data,Index);
end;