date - LongDayNames は廃止され、間違った値を返します

Question

私はLazarus Pascalでこれを理解しようとしています

注： dtWeekEndingタイプですTDateEdit

ShowMessage( LongDayNames[DayOfTheWeek( dtWeekEnding.Date) ]);

期待される出力は、dtWeekEnding の特定の値の曜日です。しかし、私は問題を抱えています:

1. LongDayNamesが非推奨であるという警告が表示されます。じゃあ何を使えばいいの？
2. 返された曜日名が正しくありません。(ドロップダウン) カレンダーでは、明確に日付が表示されますが、メッセージ ボックスはその前日です。

何か不足していますか？ご意見をお聞かせください。

編集：それが価値があるために、私はこれを試しました：

ShowMessage( LongDayNames[DayOfTheWeek( dtWeekEnding.Date) +1 ]); //Added 1 to the answer.

上記の変更を試したところ、すべての日が正しく表示されましたが、日曜日は表示されませんでした。日曜日は全く登場しません。たとえば、9 月 1 日を選択すると、その日の名前として何も表示されません。

ありがとう！