[delphi-br] pegar as 3 primeiras letras de um nome e colocar em Maiúsculo

[Alexsandro]

Boa tarde Pessoal,
Como eu pego as 3 primeiras letras de um nome e envio para outro campo 
em maiúsculo.

Obrigado pela atenção

Alexsandro Queiroz da Silva