Delphi - conversion de .dbf a .txt

Hola a todos, saben tengo un problema, necesito pasar los registros de una tabla con extensión .dbf de Dbase a un .txt, la tabla la realice en Delphi. si alguien me pudiera ayudar se lo agradeceria infinitamente.
De antemano muchas gracias.Bye

Espero que te sirva

variables
StrTabla : String;
FileTabla : TextFile;
Cadena : String;

Código
StrTabla := 'Nombre_Fichero.txt';
AssignFile(FileTabla, StrTabla);
ReWrite(FileTabla);

with Query do
begin
Close;
SQL.Clear;
SQL.Add(' SELECT * ');
SQL.Add(' FROM tabla.dbf');
Open;
While not Query.Eof do
begin
Cadena := IntToStr(Query.FieldByName(Campo1).Value);
Write(FileTabla, Cadena);
Cadena := IntToStr(Query.FieldByName(Campo2).Value);
Write(FileTabla, Cadena);
....
Cadena := IntToStr(Query.FieldByName(CampoN).Value);
Write(FileTabla, Cadena);
WriteLn(FileTabla, Cadena);
Next;
end;
end;
CloseFile(FileTabla);