Application - Contando os componentes de todas as forms

function GetTotalComponents : Integer;

var

  I: Integer;

begin

  Result := 0;

  for I := 0 to (Screen.FormCount - 1) do

    Result := Result + Screen.Forms[I].ComponentCount;

end;