Si lo vas a hacer desde Delphi, es sencillo, pues debes hacer algo asi como:
Procedure TForm1.CreaTexto;
Var
t : TextFile;
Begin
assignFile(t, 'c:\texto.txt');
Reset(t);
try
while not tabla.eof do
Begin
t.writeln(
TablaCampo1.AsText + #9 +
TablaCampo2.AsText + #9 +
TablaCampo3.AsText + #9 +
TablaCampo4.AsText);
//el #9 es el tabulador
tabla.next;
End;
finally
close(t);
end;
End;
hasta luego.