[Rolando Glez]

Con el comando SET de msdos puedes ver la instancia de las variables de
entorno del msdos, cada una de esta variable se instancia con un atributo,
dentro de esas variable esta la variable Programfiles , que es en tu caso la que deseas obtener, mediante esta Function podras obtener el valor
de cada una de estas variables

Function TCentercontrolform.GETpathprograms:string;
var
buffer:char
pathprogram_installed:string;

begin
GetMem(buffer,200); {Reservamos sitio para la respuesta}
GetEnvironmentVariable(PChar('ProgramFiles'),buffer,200);
pathprogram_installed:=StrPas(buffer);
FreeMem(buffer,200);
result:=pathprogram_installed;
end;

como ves aqui se obtiene el path donde se instalan las aplicaciones,la funsion se puede modificar para obtener cualquier variable de entorno
del msdos como domain,domainuser etc, pero en tu caso solo necesitas
obtener Programfiles ,bueno espero que con esta funsion resuelva tu problema saludos