Обратиться ко всем объектам на форме - возможно ли?

[Kronos913]

Установив Винду 11 столкнулся с такой вот проблемой:
Все объекты типа TLabel вместо русского текста пишут какой-то странный набор символов...

Но решение есть - нужно в фонтах уточнять что русский чарсет нужен

Вопрос: можно ли как-то через один цикл всем объектам задать что нужен русский чарсет?

[northener]

Можно если все "объекты" (когда же вы наконец прочитаете хоть одну умную книжку по Дельфи!) созданы в дизайнере или грамотно созданы в ран-тайме. Тогда все они попадают в список Components данной формы. Как создать цикл по списку нужно помогать?

[Kronos913]

Cкопировал откуда-то кусок кода, переделал немного и смог исправить проблема с Hint'ами

  for i := 0 to Application.ComponentCount - 1 do begin
   if Application.Components[i] is THintWindow then begin
    with THintWindow(Application.Components[i]).Canvas do
      begin
        Font.Charset:=RUSSIAN_CHARSET;
      end;
    end;  
  end;

Как теперь исправить аналогичную проблему с ShowMessage ?

[northener]

Сообщение от Kronos913

Cкопировал откуда-то кусок кода

Откуда скопировал этот бред?
И что за "аналогичная проблема с ShowMessage?
???