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

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  c: TComponent;
begin
  for i := 0 to Application.ComponentCount - 1 do
  begin
    c := Application.Components[i];
    if c is TForm then ShowMessage(TForm(c).Name);
  end;
end;