[ecfisa]

Hola randenf.

Fijate si te sirve de este modo:

Código Delphi [-]
procedure ExportToText(const aFileName: TFilename; aDataSet: TDataSet); //(o TADODataSet, etc ...)
var
  F: TextFile;
  i: Integer;
  s: string;
begin
  AssignFile(F, aFileName);
  Rewrite(F);
  aDataSet.Open;
  while (not aDataSet.EOF) do
  begin
    s := '';
    for i := 0 to aDataSet.FieldCount-1 do
      s := s + aDataSet.Fields[i].AsString +',';
      SetLength(s, Length(s)-1);
    Writeln(F, s);
    aDataSet.Next;
  end;
  aDataSet.Close;
  CloseFile(F);
end;

procedure ImportFromText(const aFileName: TFileName; aDataSet: TDataSet); //(o TADODataSet, etc ...)
var
  TS1, TS2: TStrings;
  i, j: Integer;
begin
  aDataSet.Open;
  TS1 := TStringList.Create;
  try
    TS1.LoadFromFile(aFileName);
    for i := 0 to TS1.Count-1 do
    begin
      try
        TS2 := TStringList.Create;
        ExtractStrings([','], [], PChar(TS1[i]), TS2);
        aDataSet.Append;
        for j := 0 to aDataSet.FieldCount-1 do
          aDataSet.Fields[j].AsString := TS2[j];
        aDataSet.Post;
      finally
        TS2.Free;
      end;
    end;
  finally
    TS1.Free;
    aDataSet.Close;
  end;
end;

Ejemplo llamadas:

Código Delphi [-]
 ExportToText('C:\Export.txt', DataSet);
 ...
 ImportFromText('C:\Export.txt', DataSet);

Saludos.