[[rretamar]]

Existe el componente CSVExporter (viene preinstalado en Lazarus Codetyphon) y es muy simple de usar:

Código Delphi [-]
procedure TFExportar.BitBtn1Click(Sender: TObject); // Iniciar exportación
begin
  With CSVExporter1 Do
    Begin
      DataSet := Mi_dataset;
      FileName := 'archivo.txt';
      // Opciones avanzadas
      FromCurrent := CheckBox1.Checked;                    // Desde la posición actual
      FormatSettings.FieldDelimiter := LabeledEdit1.Text;  // Delimitador de campos
      FormatSettings.StringQuoteChar := LabeledEdit2.Text; // Cadenas
      //
      Execute;
      ShowMessage('Finalizó la exportación a un archivo de texto.');
    end;
end;