(Resolvido) FileExist,CopyFile não funcionam quando o parâmetro é uma

[LucAlucard]

Estou tentando usar o FileExists e o CopiFile no Delphi 7 mas caso eu passe o parâmetro desta forma por exemplo:

procedure TfrmBackup.btnBackUpLocalClick(Sender: TObject);
var CBD, ArqBkp : String;
begin
  if DirDlg.Execute then begin
    ArqBkp        := DirDlg.Path + FormatDateTime('yyyymmdd_hhnn',now)+'.bkp';
    CBD := 'C:\sistemas\controleServicos\bd\bd.mdb'
    if FileExists(CBD) then
      CopyFile(PAnsiChar(CBD),PAnsiChar(ArqBkp),True)
    else
    Showmessage('Arquivo não encontrado!');
end;

ele não encontra o diretório... caso eu tente usar desta forma

procedure TfrmBackup.btnBackUpLocalClick(Sender: TObject);
var CBD, ArqBkp : String;
begin
  if DirDlg.Execute then begin
    ArqBkp        := DirDlg.Path + FormatDateTime('yyyymmdd_hhnn',now)+'.bkp';
    CBD := 'C:\sistemas\controleServicos\bd\bd.mdb'
    if FileExists('C:\sistemas\controleServicos\bd\bd.mdb') then
      CopyFile(PAnsiChar('C:\sistemas\controleServicos\bd\bd.mdb'),PAnsiChar(ArqBkp),True)
    else
    Showmessage('Arquivo não encontrado!');
end;

Alguém sabe o porque? É meu Delphi que ta ruim ou algo assim? Tem alguma solução alternativa?

Brigadão gente...

[Jhonas]

tente assim

procedure TForm1.Button1Click(Sender: TObject);
var CBD, ArqBkp : String;
begin

    if OpenDialog1.Execute then begin
       ArqBkp := OpenDialog1.FileName + FormatDateTime('yyyymmdd_hhnn',now)+'.bkp';

    CBD := 'C:\sistemas\controleServicos\bd\bd.mdb'

    if FileExists(CBD) then
       CopyFile(PAnsiChar(CBD),PAnsiChar(ArqBkp),True)
    else
       Showmessage('Arquivo não encontrado!');
    end;

end;

abraço

[LucAlucard]

era erro meu. vlw Jhonas pela resposta... Mas a caca era minha .-.