#cpp
#include "stdafx.h"

#define MT4_EXPFUNC __declspec(dllexport)

#pragma data_seg(".shared")
#pragma comment(linker,"/SECTION:.shared,RWS")
#pragma data_seg()
__declspec(allocate(".shared")) char *SharedStrVar1, *SharedStrVar2;
__declspec(allocate(".shared")) int SharedIntVar1, SharedIntVar2;

// Строковые переменные
MT4_EXPFUNC void __stdcall SharedStrVarSet(char *InTxt, int i)
{
	switch(i)
	{
	case 0:
		SharedStrVar1 = InTxt;
		break;
	case 1:
		SharedStrVar2 = InTxt;
		break;
	}
}

MT4_EXPFUNC char* __stdcall SharedStrVarGet(int i)
{
	char* out;
	switch(i)
	{
	case 0:
		out = SharedStrVar1;
		break;
	case 1:
		out =SharedStrVar2;
		break;
	}
	return out;
}

// Переменные целых чисел
MT4_EXPFUNC void __stdcall SharedIntVarSet(int InInt, int i)
{
	switch(i)
	{
	case 0:
		SharedIntVar1 = InInt;
		break;
	case 1:
		SharedIntVar2 = InInt;
		break;
	}
}

MT4_EXPFUNC int __stdcall SharedIntVarGet(int i)
{
	int out;
	switch(i)
	{
	case 0:
		out = SharedIntVar1;
		break;
	case 1:
		out =SharedIntVar2;
		break;
	}
	return out;
}

#pas
begin
  i:= ReadInteger(_Data,Ind);
  txt:= PChar(ReadString(_Data,InTxt));
  SharedStrVarSet(txt, i);
end;

#pas
begin
  i:= ReadInteger(_Data,Ind);
  SharedStrVarSet('Hello', i);
end;