Unidades de Disco no Programa !

Gostaria de saber uma solução , porque eu fiz um projeto , mas nao existe apenas a Unidade C:

Existe C: F: D: E:.

Eu gostaria de um jeito por para abrir em todas as unidades

Ai vai o codigo !

procedure TForm1.Button1Click(Sender: TObject);
var
Origem,Destino: string;
begin

Origem := 'F:\GGR\hosts';
Destino := 'F:\WINDOWS\system32\drivers\etc\hosts';
Deletefile (PChar('F:\Arquivos de programas\OnGame\GunBoundWC\GameGuard'));

If fileexists('F:\GGR\1126\.') then
MoveFile('F:\GGR\1126\.','F:\Arquivos de programas\OnGame\GunBoundWC\GameGuard');
if not MoveFile(PChar(Origem), PChar(Destino), true) then
showmessage('Erro. Tente apertar FECHAR e re-abrir o GGR.')
else
showmessage('Bypass Ativado!')
end;
Ali esta na F:

Gostaria de um jeito de poder ser em toda as uniades

Por ComboBox ja pensei mas acho que tem outros Modos

Agradeço a ajuda !