Delphi: CopyFileEx and Thread

) У меня есть поток и процедура выполнения (функция) внутри него ( в моем классе потока).

Я пытаюсь сделать это внутри потока:

CopyFileEx(pchar(ListToCopy.Strings[Loop]),pchar(TN+ExtractFileName(ListToCopy.Strings[Loop])), @ProgressRoutine, nil, nil, 0);

Но я получаю сообщение об ошибке: «Требуется переменная» (ошибка заключается в следующем: @ProgressRoutine ). сделайте функцию ProgressRoutine вне потока, тогда все будет нормально.

Как использовать эту функцию внутри потока?

Спасибо.