Пишу в связке Delphi-OpenCL научные программы уже пару лет.
Даже статью про это уже написал: http://www.mathnet.ru/php/archive.phtml?wshow=paper&jrnid=mm&paperid=3878&option_lang=rus
Давал в 2016году работающий пример на разных форумах: можете погуглить на слова OpenCL Delphi 64bit. Кое-что там обновил впоследствии...
Вот ссылка для скачивания с моего NAS: http://gofile.me/2Zesj/C0f3wb1o
========
Там в папке:
========
1) Полезная утилита GPU_Caps_Viewer_Setup_v1.32.0.0.exe для контроля состояния видеокарты, особенно, если нажать кнопку "More GPU Info".
2) OpenCL1_2_Delphi.zip - файл с примером от чехов (Университет Брно, насколько помню) использования OpenCL в Delphi, 2013год. У меня этот пример не всегда корректно работал при компиляции под Win64 (не на всех видео-картах). Но там хороший заголовочный файл CL.pas - его можно чуть доработать с учётом замечания про NativeInt с другого форума: заменить тип size_t на NativeInt для Win64, и использовать вместо моего "укороченного" OpenCLHeaders.pas - см.ниже.
---
3) Вложенная папка с моим вариантом программы-теста.
Последняя версия в папке : OpenCL_Demo2016 Fast Delphi XE8
Она самодостаточна: больше ничего не надо, ну разве что последние версии видео-драйверов установить. Тест сделан под Delphi XE8 (работает и под Berlin/Tokyo). Причём работает, по крайней мере у меня, при компиляции под Win32, и что более важно- под Win64. Всего 2 файла:
--> OpenCLHeaders.pas : заголовочный; я его урезал - убрал ненужные мне функции, которые в принципе можно взять из файла чехов CL.pas + учёл полезное замечание с др.форма про NativeInt ;
--> OpenCLSelect.pas : тестовая программа. Выделяет на GPU память (создаёт буферы) под 16 массивов (квадратных матриц из cl_Float, размер стороны которых задаётся на основной форме, по умолчанию 1200) и под ещё один массив, того же размера, куда пишется результат несложных вычислений на GPU. Потом запускается итерационный цикл (количество итераций - для проверки времени работы - задаётся тоже на форме, по умолчанию - 12). Внутри каждой итерации 16 массивов заполняются данными, затем запускается ещё и внутренний цикл: 30 проходов вызова расчётного ядра на GPU. Такая структура тестовой программы больше всего подходит под наши научные задачи (вычислит. гидродинамика), но пока это лишь тест. В тесте есть несложная проверка правильности вычислений на CPU - для одного из элементов матрицы-результата, поскольку НЕ все драйверы видеокарт (особенно старые) могут диагностировать Kernel Error.
--> программа на С для ядра - текстовый файл ProgramGPU1.cpp (должен лежать рядом с *.exe !!): там можно глянуть, что делается с одномерными массивами на GPU. Она прямо передаётся в виде строки на GPU, там копилируется и линкуется - ну как обычно в OpenCL. Второй файл ProgramGPU2.cpp - просто чтобы убедиться, что из разных файлов можно Kernel подгружать: он тоже должен лежать рядом с *.exe при запуске.
Нужная DLL для OpenCL - под Win64 или Win32 - подключится из системных папок Windows автоматически, в зависимости от компиляции.

Дополню (конец декабря 2017). Внутри той же ссылки для скачивания http://gofile.me/2Zesj/C0f3wb1o добавил папку:

OpenCL_Demo2017 Barrier and Local_Memory REDUCT

В ней новый пример под Delphi XE8 64bit (работает и при компиляции в Delphi под Win32 , но с ограничениями, о которых будет сказано ниже).

Отличия:
1. Добавлен пример простейшей редукции с использованием barrier и LocalMemory с обилием комментариев внутри Kernel-файла ProgramGPU1.cpp

2. Показано, как внутри Kernel создать а-ля динамический массив (стандарт языка OpenCL 1.2 этого не позволяет).

3. Главное. На форме ( см. вложенный скан экрана ) добавлены Gauge-компоненты,
показывающие:

общую загрузку CPU ;

загрузку CPU данной задачей ;
загрузку GPU (общую);

загрузку контроллера памяти GPU ;

проценты использованной памяти GPU ;

температуру GPU (в текстовом виде).


4. Для определения загрузки GPU используется nvml.dll , так что последние 4 параметра определяются только для карт NVIDIA , и при компиляции в Delphi под 64bit . Эта динамич. библиотека для каждой карты NVIDIA - своя, обычно при установке драйвера карты она попадает в папку
C:\Program Files\NVIDIA Corporation\NVSMI\nvml.dll (этот путь прямо прописан в прилагаемом примере по ссылке).
Всё что связано с определением загрузки CPU-GPU находится в отдельном модуле ProcessorUsage.pas , который может быть применён и для других программ (без OpenCL).

5. Если есть желание попробовать OpenCL не только на видеокартах, но и на процессорах INTEL, надо поставить драйвер https://software.intel.com/en-us/articles/opencl-drivers#latest_CPU_runtime
Буду весьма признателен , если кто-то подскажет способ измерения загрузки GPU от AMD , и самое простое - его температуры. Есть похожая DLL - как у NVIDIA , только для AMD Radeon ?

Всех с наступающим Новым годом !!

Определение загрузки и температуры GPU типа AMD добавил в пример (ранее всё было только для NVIDIA ). Использовал библиотеку atiadlxx.dll . Эта библиотека устанавливается автоматически при установке драйверов видео-карты AMD (у меня это Radeon M275x). Пример перезалил в ту же папку для скачивания http://gofile.me/2Zesj/C0f3wb1o , в ту же уже ранее добавленную под-папку:
OpenCL_Demo2017 Barrier and Local_Memory REDUCT
Но вот как определить, сколько памяти на GPU именно AMD уже занято - не разобрался. В стандартных утилитах типа GPU-z 2.5.0 это как-то делается : значит, способ есть. Может кто-то подсказать?

ОК. У меня скорость раздачи до 100Мбит/сек (вечером 20мбит/сек), но весь трафик забит раздачей торрентов. Сейчас их тормозну.

Обновлённая ссылка на DEMO:
http://gofile.me/2Zesj/fbsharing-C0f3wb1o
Последняя версия в папке:
OpenCL_Demo2018 Barrier and Local_Memory REDUCT Delphi Tokyo 10.2.2 !! LAST !!