Um método bem interessante que eu uso frequentemente é transformar as palavras ou strings convertendo para maiúscula, assim também sempre que eu insiro dados no banco eu chamo essa função ficando padronizado.

Segue a função.

Primeiro crie a função no modo string

function Maiusculas(Texto:String):String;

Agora implementando a função.

function TIWUserSession.Maiusculas(Texto:String):String;
Var
RecebeTexto: String;
Begin
// Primeira transformação em maiúsculo…
RecebeTexto := UpperCase(Texto);
RecebeTexto := StringReplace( RecebeTexto ,’ç’,’Ç’,[rfReplaceAll]);
RecebeTexto := StringReplace( RecebeTexto ,’á’,’Á’,[rfReplaceAll]);
RecebeTexto := StringReplace( RecebeTexto ,’à’,’À’,[rfReplaceAll]);
RecebeTexto := StringReplace( RecebeTexto ,’é’,’É’,[rfReplaceAll]);
RecebeTexto := StringReplace( RecebeTexto ,’ó’,’Ó’,[rfReplaceAll]);
RecebeTexto := StringReplace( RecebeTexto ,’í’,’Í’,[rfReplaceAll]);
RecebeTexto := StringReplace( RecebeTexto ,’ú’,’Ú’,[rfReplaceAll]);
RecebeTexto := StringReplace( RecebeTexto ,’ã’,’Ã’,[rfReplaceAll]);
RecebeTexto := StringReplace( RecebeTexto ,’â’,’Â’,[rfReplaceAll]);
RecebeTexto := StringReplace( RecebeTexto ,’õ’,’Õ’,[rfReplaceAll]);
RecebeTexto := StringReplace( RecebeTexto ,’ô’,’Ô’,[rfReplaceAll]);
RecebeTexto := StringReplace( RecebeTexto ,’ê’,’Ê’,[rfReplaceAll]);

// Resultado;…
Result := RecebeTexto ;
End;