program HelloAgxDevice;

{$mode ObjFPC}{$H+}

uses
  AgxOpenTypes, AgxOpenRuntime;

var
  Device: TAgxDevice;
begin
  Device := TAgxDevice.Create;
  try
    WriteLn('Device:  ', Device.Info.Name);
    WriteLn('Backend: ', AgxBackendName(Device.Info.Backend));
    WriteLn('Compute: ', Device.Info.SupportsCompute);
  finally
    Device.Free;
  end;
end.