clCreateProgramWithBinary

function clCreateProgramWithBinary(

  context: cl_context;

  num_devices: cl_uint;

  device_list: Pcl_device_id;

  lengths: Pcsize_t;

  binaries: PPByte;

  var binary_status: cl_int;

  var errcode_ret: cl_int

):cl_program;