Delphi-PRAXiS - CSV-Datei für Googlekalender

Guten Tag,
ich möchte verschiedene Daten in den Googlekalender importieren,
Dazu habe ich eine CSV-Datei erzeugt.

Delphi-Quellcode:

			pDatei := 'D:\AP-Test2.csv';

StrlCSV := TStringList.Create;

try 

 // Spalten-Überschrift erzeugen

 pZeile := '"Verein","Beginnt am","Beginnt um","Endet am","Endet um","Beschreibung","Ort"';

 StrlCSV.Append(pZeile);

 // Daten aus einer Tabelle

  ibqryAPExport.First;

  while not ibqryAPExport.Eof do

  begin

   pZeile := '';

   pAPDatum := FormatDateTime('dd.mm.yyyy', ibqryAPExport.FieldByName('BeginDatum').AsDateTime);

   pAPZeit := FormatDatetime('hh:mmm:ss', ibqryAPExport.FieldByName('BeginUhrzeit').AsDateTime);

   pEndeDatum := FormatDatetime('dd.mm.yyyy', ibqryAPExport.FieldByName('EndeDatum').AsDateTime);

   pEndeZeit := FormatDatetime('hh:mmm:ss', ibqryAPExport.FieldByName('EndeZeit').AsDateTime);

   pArbeitsText := Trim(ibqryAPExport.FieldByName('Arbeitstext').AsString);

   pOrt := Trim(ibqryAPExport.FieldByName('Ort').AsString);

   pZeile := '"' + Verein + '","' + pAPDatum + '","' + pAPZeit + '","'

   + pEndeDatum + '","' + pEndeZeit + '","' + pArbeitsText + '","' + pOrt + '"';

   StrlCSV.Append(pZeile);

   ibqryAPExport.Next;

  end;

 StrlCSV.SaveToFile(pDatei);

 finally

 StrlCSV.Free;

end;

Wenn ich nun die Datei in Google-Kalender importieren möchte, wird die Fehlermeldung
"0 von 0 Terminen importiert
iCal-Csv-Datei kann nicht veraebeitet
werden."
von Google ausgegeben.
Auch der Dateiaufbau mit Semikolon ";" als Feldtrenner brachte keinen Erfolg.
Wie muss die CSV-Datei für den Import in einen Googlekalender aufgebaut sein?
Vielen Dank für Eure Hilfen im Voraus.