Fórum Problemas com FindClose, alguém pode ajudar? #233051

Segue abaixo como estou fazendo para buscar os arquivos de uma pasta, mas quando compilo da erro no FindClose, ele diz que o tipo é incopativel ´Cardinal and SearchRec´, até olhei no help do delphi e ele me mostra como está aí, não sei como solucionar, alguém pode me ajudar?

procedure TForm1.bCarregaClick(Sender: TObject);
var
Procurar: TSearchRec;
Arquivos: Integer;
begin
ComboBox1.Items.Clear;
Arquivos := 0;
Arquivos := Arquivos + faDirectory;
Arquivos := Arquivos + faArchive;
Arquivos := Arquivos + faAnyFile;

if FindFirst(Caminho, Arquivos, Procurar) = 0 then
begin
repeat
if (Procurar.Attr and Arquivos) = Procurar.Attr then
ComboBox1.Items.Add(Procurar.Name);
until FindNext(Procurar) <> 0;
FindClose(Procurar);
end;
end;