Como retornar apenas a letra do drive do diretório atual

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

// função que permite obter a letra do drive
// atual
function obterLetraDriveAtual: Char;
var
  s: string;
  letra: Char;
begin
  GetDir(0, s);
  letra := s[1];
  Result := letra;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('A letra do drive atual é: ' +
    obterLetraDriveAtual);
end;