Var MaxUser:string; begin MaxUser:=string(OD_ReadMaxUser(pchar(session_id))); end;
{ char* MaxUser; MaxUser = OD_ReadMaxUser(session_id); }
Dim MaxUser As String MaxUser = OD_ReadMaxUser(session_id)