Есть база *.dbf, как ее перегнать в текстовый файл?

set fso = CreateObject('Scripting.FileSystemObject')
set f = fso.CreateTextFile('dbflist.txt')
set cn = CreateObject('ADODB.Connection')
cn.Open 'Driver={Microsoft dBASE Driver (*.dbf)}; ' & _
        'DriverID=533'
set rs = cn.Execute('SELECT * FROM mytable1')
nf=rs.Fields.Count
For i = 0 To nf-1
  If i=0 Then
    buf = rs.Fields(i).Name
  Else
    buf = buf & Chr(9) & rs.Fields(i).Name
  End If
Next
f.WriteLine(buf)
Do While Not rs.EOF
  For i = 0 To nf-1
    If i=0 Then
      buf = rs.Fields(i)
    Else
      buf = buf & Chr(9) & rs.Fields(i)
    End If
  Next
  f.WriteLine(buf)
  rs.MoveNext
Loop
f.Close
rs.Close
set rs = Nothing
cn.Close
set cn = Nothing

program listdbf;
{$APPTYPE CONSOLE}
uses
  SysUtils, DB, DBTables, Provider, DBClient;
var
  Table: TTable;
  DataSetProvider: TDataSetProvider;
  ClientDataSet: TClientDataSet;
  fcount, i: Word;
begin
  Table := TTable.Create(nil);
  try
    Table.TableName := 'mytable.dbf'
    Table.Open;
    DataSetProvider := TDataSetProvider.Create(nil);
    try
      DataSetProvider.DataSet := Table;
      ClientDataSet := TClientDataSet.Create(nil);
      try
        ClientDataSet.SetProvider(DataSetProvider);
        ClientDataSet.Open;
        fcount:=ClientDataSet.Fields.Count;
        For i:=0 To fcount - 1 Do Begin
          If i>0 Then Write(Chr(9));
          Write(ClientDataSet.FieldDefs[i].Name)
        End;
        writeln;
        while Not ClientDataSet.Eof Do Begin
          For i:=0 To fcount - 1 Do Begin
            If i>0 Then Write(Chr(9));
            Write(ClientDataSet.Fields[i].Value)
          End;
          writeln;
          ClientDataSet.Next;
        End;
        ClientDataSet.Close
      finally
        ClientDataSet.Free
      end
    finally
      DataSetProvider.Free
    end;
    Table.Close
  finally
    Table.Free
  end
end.