Rotina para configurar a propriedade tag

Ola Pessoal   criei uma rotina para nao ter ficar escrevendo codigo em todos os formularios do projeto mais nao ta funcionando   essa rotina simplesmete verifica o tag       type
 tservicos =class(tform)
 class procedure TServicos.tag(xform: TForm);
end ;   -- na implementacao da classe class procedure TServicos.tag(xform: TForm);
var
  I, Y: integer;
  S: string; begin
  for y := 0 to ComponentCount - 1 do
  begin
    if (Components[y] is TComboBox) then
      if Components[y].Tag = 1 then
        if TComboBox(Components[y]).Text = EmptyStr then
        begin
          S := S + TComboBox(Components[y]).ImeName + #13;
        end;   end;
  for I := 0 to ComponentCount - 1 do
  begin
    if (Components[i] is TEdit) then
      if Components[i].Tag = 1 then
        if TEdit(Components[i]).Text = EmptyStr then
        begin
          S := S + TEdit(Components[i]).ImeName + #13;         end;
  end;   if S <> EmptyStr then
  begin
    raise
      Exception.Create('Informe:'
      +
      #13 + S);
  end;     tambem usei o refectore para adicionar as units da tcombobox e tedits mais nao sei pq nao funcionou