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