Var OkResult:string; begin OkResult:=string(OD_ReadMemory(pchar(session_id),'0')); end;
{ char* OkResult; OkResult = OD_ReadMemory(session_id,"0"); }
Dim OkResult As String OkResult = OD_ReadMemory(session_id,"0");