[ecfisa]

Hola microbiano.

¿ Y no te convendría recorrer los campos directamente del TDataSet ?

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  s : string;
begin
  with TStringList.Create do
  try
    DataSet.First;
    DataSet.DisableControls;
    while not DataSet.Eof do
    begin
      for i:= 0 to DataSet.FieldCount-1 do
        s:= s + DataSet.Fields[i].AsString + '|';
      DataSet.Next;
    end;
    Q_carac.Open;
    while not Q_carac.Eof do
    begin
      s := StringReplace(s, Q_Carac.FieldByName('caracter').AsString, '', [rfReplaceAll]);
      Q_carac.Next;
    end;
    Q_carac.Close;
    SetLength(s, Length(s)-1);
    Text:= s;
    SaveToFile(ExtractFilePath(Application.ExeName) + 'prueba.txt');
  finally
    Free;
    DataSet.EnableControls;
  end;
end;

Saludos.

Edito: No había visto el mensaje de rretamar, que te sugiere lo mismo.