Delphi - como detectar la unidad "D"

Porfavor alguien me podria ayudar a solucionar mi problema se lo agradeseria mucho:
El problema es el sigiente: Tengo un problema de un pequeño CD que se grabo para que se ejecutara desde la unidad "D" y otro para que se ejecutara desde la unidad "E".Si se ejecuta desde la unidad "E"si se instala y se ejecuta muy bien pero en el momento de ejecutarla desde la unidad "D" si se instala el programa pero no me ejecuta me proboca un error que no reconose el ejecutable, AHORA MI PREGUNTA ES COMO PUEDO HACER PARA QUE DETECTE QUE SE ESTA EJECUTANDO DESDE LA UNIDAD "D".

No se si entendí bién pero a ver si es esto.
var
LetraUnidad: string;
begin
LetraUnidad:=ExtractFileDrive(Application.ExeName);
ShowMessage('El programa se está ejecutando desde la unidad '+LetraUnidad);
end;