function TP2KAPI.GetStrVERSION(ASelObject: word): string;
var
  xBuffer: pbytearray;
  cnt: word;
  res: boolean;
  i: integer;

begin
  res:= false;
  result:= '';
  xBuffer:= AllocMem($FA4);
  try
    res:= p2k.GetVERSION(ASelObject, xBuffer, cnt);
    if res then begin
                  result:='';
                  for i:= 0 to cnt-1 do result:= result + chr(xBuffer[i]);
                  result:= TRIM(result);
                  //result:= str;
                end
  finally
    FreeMem(xBuffer);
  end;
end;