Fórum Copiar ao criar diretorio #301141

Pessoal tenho o seguinte procedimento:...

procedure TFrmEmpresa.Criar;
Var
Diretorio :String;
begin
Diretorio := ´\wincont\EMP-´+MskCodigo.text+´\´;
if not DirectoryExists(Diretorio) then
ForceDirectories(Diretorio);

Diretorio := ´\wincont\EMP-´+MskCodigo.text+´\´+mskanobase.text+´\´;

if not DirectoryExists(Diretorio) then
ForceDirectories(Diretorio);

end;

... onde ele cria um diretorio (ex:c:\wincont\emp-001\), bem o que eu quero é que dentro deste procedimento que ao criar o diretorio tb copie um arquivo que esta em c:\wincont\precla.db para o diretorio criado, que ficaria assim c:\wincont\emp-001\precla.db, tentei colocar isto:


procedure TFrmEmpresa.Criar;
Var
Diretorio :String;
begin
Diretorio := ´\wincont\EMP-´+MskCodigo.text+´\´;
if not DirectoryExists(Diretorio) then
ForceDirectories(Diretorio);

CopyFile(´c:\wincont\precla.db´,´c:\wincont\EMP-´+MskCodigo.text+´\precla.db´,TRUE);


Diretorio := ´\wincont\EMP-´+MskCodigo.text+´\´+mskanobase.text+´\´;

if not DirectoryExists(Diretorio) then
ForceDirectories(Diretorio);


Mas não deu certo.


P.S. MSKCODIGO.TEXT É O CODIGO CRIADO. EX 001 OU 002 OU 003, ETC.