1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var
  csv: TStrings;
  Line: Integer;
begin
  csv := TStringList.Create;
  try
    // geht so aber nur wenn alle ListBoxen gleich viele Einträge enthalten
    for Line := 0 to ListBox1.Items.Count -1 do
      csv.Add(ListBox1.Items[Line] + #9 + ListBox2.Items[Line] + #9 + ListBox3.Items[Line]);     
    csv.SaveToFile('C:\Datei.csv');
  finally
    FreeAndNil(csv);
  end;
end;