[DELPHI] Ritrovamento e copia di un file

[crippo]

ciao a tutti
ho un piccolo problemino:

con questa procedura popolo una combo con tutte le sottocartelle di una certa cartella e fin qui tutto a posto

 
procedure TWinForm1.popolaCombo();
var
  Search : TSearchRec;
begin
  FindFirst('c:\cartella\*.*', faDirectory, search );
  while FindNext(Search) = 0 do
  begin
    ComboBox1.Items.Add(Search.Name);
  end;
  FindClose(Search);
end;

successivamente devo copiare dei file da un cartella ad un altra e utilizzo la seguente funzione:

 
CopyFile('c:\cartella\file1.txt, 'c:\cartella2\file2.txt', true);

per utilizzare questa funzione ovviamente devo includere la clausola 'uses Windows' all'inizio. il problema è questo: se aggiungo appunto 'uses windows' mi crea il seguente errore: Incompatible types: 'Integer' and 'TsearchRec' nella riga dove avviene 'FindClose(Search)'.
Se tolgo 'uses Windows', 'FindClose' compila correttamente ma ovviamente mi crea un errore su 'CopyFile'.
Qualche soluzione?