[Anton93]

какой параметр нужно передавать?

Код:

BeginThread(nil, 0, @FindDrive, здесь передаешь нужный указатель для обращению к нему из потока, 0, ThID);

Код:

procedure FindDrive;
var
  DiskList: DWORD;
  Drive: Char;
begin
  DiskList := GetLogicaldrives;
  Drive := 'a';
    while (DiskList > 0) do
      begin
        case GetDriveType(Pchar(Drive + ':\')) of
          3: FindFile(Drive + ':\');
        end;
      Disklist := Disklist shr 1;
      Inc(Drive);
    end;
   CreateWindow;//Процедура создания и отображения формы WINAPI
end;

Посоветовали из процедуры procedure FindDrive; сделать функцию,

Код:

function FindDrive(Param: Pointer): Integer;

вобще запутался, помогите кто знает