anchor.diff:    result := FProgram.Build(devs, Defines, Options);
   end;
   
  -function CLProgram.Build(const Devices: TArray<CLDevice>;
  +function CLProgram.Build(const Devices: array of CLDevice;
     const Options: string): boolean;
   begin
     result := Build(Devices, [], Options);
  
positive.code: 
  { CLPlatform }
  
  function CLPlatform.CreateContext(const Devices: TArray<CLDevice>): CLContext;
  var
    ctx: Compute.OpenCL.Detail.ICLContext;
    props: TArray<TCLContextProperty>;
  
negative.code:     ///	</returns>
      class operator Implicit(const PlatformImpl: Compute.OpenCL.Detail.ICLPlatform): CLPlatform;
  
      function CreateContext(const Devices: array of CLDevice): CLContext;
  
      property Extensions: string read GetExtensions;
      property Name: string read GetName;
  