procedure TForm1.Button1Click(Sender: TObject);
var
  vAux : String;
begin
  { Exemplo 1, um caractere simples }
  ShowMessage(UpCase('x'));
 
  { Exemplo 2, o primeiro caractere de uma string estática. }
  ShowMessage(UpCase(String('show delphi')[1]));
 
  { Exemplo 3, convertendo o sexto caractere de uma variável string. }
  vAux := 'faça parte da comunidade';
  ShowMessage(UpCase(vAux[6]));
end;