copy dir

jeg har et spm

jeg har den her kode:

Procedure CopyDir(fra,til:string);
var
  SearchRec: TSearchRec;
begin
  If Copy(fra,Length(fra),1)<>\'\' then Fra:=fra+\'\';
  If Copy(Til,Length(Til),1)<>\'\' then Til:=Til+\'\';
//  Tjek om mapperne findes
  IF not DirectoryExists(fra) then begin showmessage(\'Mappen \"\'+fra+\'\" findes ikke.\');exit;end;
  IF not DirectoryExists(til) then begin
    MkDir(Til);
  end;
//Led filerne igennem
  If FindFirst(fra+\'*.*\', faAnyFile, SearchRec)=0 Then
  Repeat
    If SearchRec.Attr=faDirectory Then begin
      If (SearchRec.Name=\'.\')or(SearchRec.Name=\'..\') then Continue;
      //Kopier undermappe med
      CopyDir(Fra+SearchRec.Name,Til+SearchRec.Name);
    end else begin
      CopyFile(PChar(Fra+SearchRec.Name),PChar(Til+SearchRec.Name),False);
    end;
  until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;

jeg tilføjer \"filectrl\" under uses og jeg tilføjer Procedure CopyDir(til : string;  fra : string); under Public declarations

men når jeg starter programmet siger den
Unsatisfied forward or external declaration: \'TForm1.CopyDir\'

hva kan jeg gøre