Как передать в поток параметр?

Для этого есть специальный аргумент в данной функции - lpParameter. То есть можно передать указатель на переменную или инициализированную структуру, а в потоке использовать эти значения для совершения необходимых действий.

Передавать его просто - сделать операцию получения адреса. Получить его - присвоить адрес своей переменной и сделать разыменование адреса.

var Nya: ^Integer;
A: Integer;
...
K := lpParam; // присваивание
...
A = 10 + K^; // использование

И вместо CreateThread лучше в Delphi BeginThread использовать.

Глобальные переменные, конечно, тоже можно, но там надо аккуратнее.