Percorrer todos os forms do projeto

If frmPrincipal.MDIChildCount>0 Then
  For A:=frmPrincipal.MDIChildCount-1 DownTo 0 Do
    Begin
      Titulo:=MDIChildren[A].Caption;
      Nome:=MDIChildren[A].Name;
    End;

procedure TfrmPrincipal.btnVerificarJanelasClick(Sender: TObject);
var
i: integer;
nome, caption: string;
begin
for i:= 0 to Screen.FormCount - 1 do
    begin
    if Screen.Forms[i].Name <> frmPrincipal.Name then
        begin
        if Screen.Forms[i].Visible then
            begin
            nome:= nome + ´ - ´ + Screen.Forms[i].Name;
            caption:= caption + ´ - ´ + Screen.Forms[i].Caption;
            end;
        end;
    end;
    Application.MessageBox(Pchar(´Nome dos Forms: [´ + nome + ´]´ + 13 + ´Caption dos Forms: [´ + caption + ´]´),´Teste com form´, mb_Ok + mb_IconInformation);
end;