Fórum Tem como converter string para char? #218912

Pessoal, tenho essa função para veificar o tipo de drive
[b:b3c3ea3729]Function Tipo_Drive(Drive:Char):String;
Const Drive_Removable = 2;
Drive_Fixed = 3;
Drive_Remote = 4;
Drive_CdRom = 5;
Drive_RamDisk = 6;
var Tipo: byte;
begin
Tipo := GetDriveType(PChar(Drive + ´:\´));
Case Tipo of
0: Result := ´Indeterminado´;
1: Result := ´Inexistente ´;
2: Result := ´Removível´;
3: Result := ´Fixo´;
4: Result := ´Rede´;
5: Result := ´CD-ROM´;
6: Result := ´RAM Disk´;
else Result := ´ Erro´;
end;
end;[/b:b3c3ea3729]

O problema é que meu campo no intebase e string1, teria como converter string para char para aceitar nessa função...me ajudem, urgente.

Alessandro