Si bien el codigo de ecfisa esta perfecto, el CSV se hace con ";" por ende simplemente modificamos:
Código Delphi
[-]Add(Form1.ListView1.Items[i].Caption +';'+
Form1.ListView1.Items[i].SubItems[0] +';'+
Form1.ListView1.Items[i].SubItems[1] +';'+
Form1.ListView1.Items[i].SubItems[2] +';'+
Form1.ListView1.Items[i].SubItems[3]);
Para 4 columnas.