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