[HTTqp]

Как сделать правильно поток, если действие которое нужно выполнить имеет еще параметры которые заполняются во время работы. Вот пример:
Дан код:

Код:

1 2 3 4 5 6 7

{Проверка на наличие CD\DVD} function DiskInDrive(ADriveLetter:Char):Boolean; var SectorsPerCluster,BytesPerSector,NumberOfFreeClusters,TotalNumberOfClusters:Cardinal; begin Result:=GetDiskFreeSpace(PChar(ADriveLetter+':\'),SectorsPerCluster,BytesPerSector,NumberOfFreeClusters,TotalNumberOfClusters); end;

данную функцию надо выполнить в потоке, но переменная ADriveLetter:Char меняется во время работы программы, поясню что это буква диска она может быть как с, d, e и т.д.