ayuda con exportacion de DBgrid

[microbiano]

podrias poner un ejemplo,
la verdad ya intente meter todos los caracter que quiero reemplazar en una base pero no puedo solucionarlo

hice lo siguiente;

Código Delphi [-]
procedure TForm1.btn2Click(Sender: TObject);
var
i : integer;
  a: Integer;
  archivo : TStringList;
  Data : TDataSet;
  cadena:String;
  letra: String;
  reemplaza: string;
begin
  Archivo:=TStringList.Create;
  Data:=DBGRID1.DataSource.DataSet;
  Data.First;
  letra:='';
  while not(Data.eof) do
     begin
        cadena:='';
       for i := 0 to dbgrid1.Columns.Count-1 do
       //for a:=0 to Data.RecordCount- 1 do
        begin
         cadena:=cadena +(Data.FieldByName(DBGrid1.Columns[i].FieldName).asString+'|');
        end;
        archivo.Add(cadena);
        data.Next;
      end;
  Q_carac.Open;
//cuando hago el open hace la siguiente consulta: select * from caracter
  while Q_carac.Eof do
  begin
    letra:=(Q_carac.fieldByname('caracter').AsString);//aqui es donde recorro todos los caracter que quiero reemplazar
    cadena:=StringReplace(cadena,letra,'',[rfReplaceAll]);//y aqui hago en reemplazo en la cadena pero no funciona :-(
  end;

     if FileExists('Test.txt') then DeleteFile('Test.txt');
     archivo.SaveToFile('Test.txt') ;
end;

alguna idea