Exportação/Importação arquivos no formato TXT - Me ajudem

Estou usando a seguinte procedure para gerar arquivos TXT com os registros da minha tabela:

procedure expCampos(cds: TCustomClientDataSet; tipoRegistro: String;var ArquivoCSV:TextFile;Linha:String);
var
i,nfield: smallint;
temp: String;
begin
// ->detalhe do registro (nome dos campos da tabela)
for i := 0 to Pred(cds.FieldCount) do
if cds.Fields[i].Tag = 0 then
begin
inc(nfield);
temp:= temp+ cds.Fields[i].DisplayLabel + ',';
end;
Delete(Temp, length(Temp), 1);
Writeln(ArquivoCSV, formatfloat('00',nfield)+'|'+temp);

// ->correr registro por registro da tabela
while not cds.Eof do
begin
Linha := tipoRegistro+'|'; // registro detalhe do reg I10
FormMenu.progBar.StepIt;
for i := 0 to Pred(cds.FieldCount) do
begin
if cds.Fields[i].Tag = 0 then
begin
if cds.Fields[i].DataType = ftString then
Linha := Linha + QuotedStr(TrimRight(cds.Fields[i].AsString)) + '|'
else if cds.Fields[i].DataType = ftFMTBcd then
Linha := Linha + formatcurr('000000', trunc(cds.Fields[i].AsCurrency))
+ '.' + formatfloat('00',
round(frac(cds.Fields[i].AsCurrency) * 100)) + '|'
else if cds.Fields[i].DataType = ftDate then
Linha := Linha + QuotedStr(FormatDateTime('dd.mm.yyyy',cds.Fields[i].AsDateTime)) + #124
else
Linha := Linha + cds.Fields[i].AsString + '|';
end;
end;

Delete(Linha, length(Linha), 1);
Writeln(ArquivoCSV, Linha);

cds.Next;
end;
cds.First;
end;

<b>O resultado é um arquivo TXT com as seguintes linhas:</b>

I1002|FAIXA_INSS,ALIQUOTA
I10|001174.86|000008.00
I10|001958.10|000009.00
I10|003916.20|000011.00
I2003|FAIXA_IRRF,ALIQUOTA,DEDUCAO
I20|002563.91|000007.50|000128.31
I20|003418.59|000015.00|000320.60
I20|004271.59|000022.50|000577.00
I20|999999999.00|000027.05|000790.58

<b>O problema é que uso Delphi XE2, e na hora de ler esse arquivo, e faço uma concatenação de uma linha lida do arquivo, e um outro texto, aparece uns caracteres estranhos no meio do texto.</b>
Por Exemplo:

leio assim: Readln(ArquivoCSV, Linha) //o valor da linha é: I1002|FAIXA_INSS,ALIQUOTA

concateno assim:
linha + ',COMPETENCIA'

o Resultado que sai é: I1002|FAIXA_INSS,ALIQUOTA,<b>#&?,/b>,COMPETENCIA

Então esses caracteres estranhos não deviam está ai. #&?