Descarga archivo TIBFTP

[mjjj]

Hola, no se si esta bien clasificada esta consulta aqui... pero aqui va.

Necesito descargar un archivo desde un servidor FTP, utilizo el componente TIDFtp. El asunto es que si corro la aplicacion en Windows Vista no dsecarga el archivo, en cambio en Windows XP, si que funciona.

El código:

Código Delphi [-]
idftp1.passive:=true;
try
idftp1.Connect;
if idftp1.Connected = true then
begin
dir := GetEnvironmentVariable('Programfiles')+'\Soft';
idftp1.Get(ExtractFileName('ver.ini'),GetEnvironmentVariable('Programfiles')+'\TamaSoft\ver.ini', TRUE, False );
end;

Alguna idea de porque ocurre esto??

Gracias