[dr. F.I.N.]

Толчек в нужном направлении:

Код:

var
  i: Integer;
begin
  for i := 0 to application.ComponentCount - 1 do
  if application.Components[i] is TForm then
  ShowMessage((application.Components[i] as TForm).Caption);
end;