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

    ComboBoxErweitern := TComboBox.Create(self);
    query1.SQL.Clear;
    query1.SQL.Add('SELECT * FROM Z4MSYS WHERE ART=''SO'' ORDER BY F1');
    query1.Open;
    query1.Last;
    lastdate := StrToFloat(query1.FieldByName('F1').AsString) - 693594;
    decodeDate(lastdate, lyear, lmonth, lday);
    ComboBoxErweitern.Text := FloatToStr(lyear);
    for j := lyear to 2015 do ComboBoxErweitern.Items.Add(FloatToStr(j)); // Hier knallts!