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

const xlCSV = $00000006;
      xlShiftDown = $FFFFEFE7;
var xls, xlw: Variant; i,j:integer;
begin if not FileExists(Form1.eAlteHotels.Text) then exit;
  xls := CreateOleObject('Excel.Application');
  try xls.DisplayAlerts := False;
    xlw := xls.WorkBooks.Open(Form1.eAlteHotels.Text);
    for i := 1 to 10 do if xls.Worksheets[i].Name = 'BUCH' then break;
    xlw.Worksheets[i].Select;
    for i := sp.Count-1 downto 0 do
      begin xlw.Rows(2).Insert(xlShiftDown, EmptyParam);
        for j := 1 to AnzStr(';', sp[i]) do xlw.Cells[2, j] := strx(';', sp[i], j);
      end;
  finally xlw.Save; xlw.Close; xlw := UnAssigned; xls.Quit; xls := UnAssigned;
  end;
end;                    

1:

xlw.Rows[2].Insert...                    

1:
2:
3:
4:
5:
6:
7:
8:

xlw.Worksheets[i].Select;
    for i := sp.Count-1 downto 0 do // die Zeilen meiner Liste von hinten an...
      begin xlw.ActiveSheet.Rows[2].Insert; // Zeile über Zeile 2 einfügen
            xlw.ActiveSheet.Rows[2].Interior.Color := clWhite; // Hintergrund weiß machen
        for j := 1 to 30 do // Inhalte übertragen aus Liste (CSV-Datei)
          xlw.ActiveSheet.Cells[2, j].value := strx(';', sp[i], j); // StrX gibt einzelne Strings der CSV-Zeile
             // Bei Excel ist's [Zeile Spalte], bei StringGrid [Spalte, Zeile] !!!
      end;