Gravar Tabela origem, destino

[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?

[Duduh_Capixaba]

Cara, em qual linha do código está dando o erro? Analisando rápido, creio que o erro seja aqui:

sTbConsName := TbConsName;

Pois você não definiu o que sua string está recebendo da sua tabela.