Comando ImputQuery (delphi)

[negrao]

Mocada , tem como ao digitar ja sair maiusculo no comando
InputQuery('..::Informe o nome do Cliente ::..','Cliente',Cnome);


obrigado