Как получить список форм приложеня в Design-time?

[GydruS]

Здравствуйте, коллеги!

Пишу компонент. Необходимо получить список всех форм приложения в design-time.
Т.е. такой список, который мы имеем в Project->Options->Forms.
Кто-нибудь знает, как это можно сделать?

вариант

for i := 0 to Application.ComponentCount-1 do
  if Application.Components[i] is TForm then {add to list};

не подходит, т.к. в список попадает куча форм IDE, но совсем не те, что в проекте...

Условие типа

if (Application.Components[i] is TForm) and (csDesigning in Application.Components[i].ComponentState) then {add to list};

вообще не выполняется ни разу...

код

for i := 0 to Screen.FormCount-1 do begin
  ...
  AddToList(Screen.Forms[i].Name);
  ...
end;

возвращает такой список (тоже не то, что нужно):

MessageViewForm
ProjectManagerForm
BorlandEditorCodeExplorer
EditorStatusControlForm

...


Есть идеи или советы?

Спасибо за помощь!