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