obrigar uma string receber caracter maiúsculo

objeto que vai receber o valor maiúsculo := AnsiUpperCase(elemento que vai ser transformado em maiúsculo);