//Excel öffnen, bei Fehler Procedure beenden
  try
    Excel := CreateOleObject('Excel.Application');
  except
    exit;
  end;

  //neue Arbeitsmappe öffnen
  Excel.Workbooks.Add;

  //Excel verstecken
  Excel.Visible := false;

  //in 1. Spalte schreiben, beginnend bei 1. Zeile
  for i := 0 to Pred(StringList.Count) do
    begin
      Nummer := StringList.Names[i];
      Text := 'de-DE=' + StringList.ValueFromIndex[i];

      Excel.Cells[i + 1, 1].Value := Nummer;
      Excel.Cells[i + 1, 3].Value := Text;
    end;

  //In Datei sichern
  Excel.ActiveWorkbook.SaveAs(Datei);

  //Excel schliessen
  Excel.Quit;