Israel O P Lopes

Preciso retornar o nome do computador para tanto estou usando a Function function nomecomputador : String; var lpBuffer : PChar; nSize : DWord; const Buff_Size = MAX_COMPUTERNAME_LENGTH + 1; begin nSize := Buff_Size; lpBuffer := StrAlloc(Buff_Size); GetComputerName(lpBuffer,nSize); Result := String(lpBuffer); StrDispose(lpBuffer); end; Até ai tudo bem. A questão é que só retorna o nome da máquina em LETRAS MAIUSCULAS, gostaria que retornasse tal qual está escrito. Na maquina onde realizo o teste está assim Trabalho-PC mas só retorna TRABALHO-PC o que devo fazer?