Sistema Tecnico

Bom dia, galera. estou com um problema que não estou conseguindo resolver. tenho um programa onde eu relaciono os clientes e mando para os clientes, só que não estou conseguindo salvar a tabela destino, alguém pode me ajudar? ESTE É O CÓDIGO QUE ESTOU USANDO. var sTbConsName, NomeOrigem, NomeDestino: String; begin With DataModule1 do begin sTbConsName := TbConsName; NomeOrigem := AliasBDLPath+'\'+sTbConsName; end; DataModule1.Consulta.Close; If not FileExists(NomeOrigem) then begin MessageDlg('Arquivo '+sTbConsName+' não encontrado!',mtError, [mbOK],0); DataModule1.Consulta.Open; Exit; end; if SaveDialog1.Execute then begin NomeDestino := SaveDialog1.FileName; CopyFile(NomeOrigem, NomeDestino); end; DataModule1.Consulta.Open; end; ESTE É O ERRO: incompatible types: string and PAnsiChar' //como resolvo isto?