bueno, podes valerte de un TStringList (o de un Memo) para generar las líneas de texto.
Algo como:
Código Delphi
[-]
memo1.Lines.Add(
Tabla.FieldByName('campo1').AsString + ',' +
Tabla.FieldByName('campo2').AsString);
iteras por los diferentes registros de la tabla y por último llamas al método SaveToFile de Memo1.Lines (o el TStrings usado).
Hasta luego.
