Ciao a tutti,
devo fare un programma che scarichi file .rar (archivi compattati con winrar), tramite ftp o internet...
Io avevo questa funzione per tutti i file, ma non funziona con questo tipo...
Qualcuno mi può aiutare?

codice:
 
procedure TfrmLogin.ScaricaFile2(NomeFile,Est:string); //scarico i file dall'ftp 
var
 SourceFile:string; //file da scaricare
  DestFile:string;   //file di destinazione
begin
  SourceFile := 'http://www.MIOHOST.it/DownloadAgg/';  //path da cui prendere il file
  dirDownload:= path+'patchGCIWINScaricate\';
  if not DirectoryExists(dirDownload) then  // se la directroy non esiste
    begin
      mkdir(dirDownload);
      {if not CreateDir(dirDownload) then      //creo la directory Se non esiste
        raise Exception.Create(dirDownload); }
     end;
                                             //va sostituito con altro percorso tipo quello dell'applicazione+cartella
  DestFile := dirDownload;      //path dove salvare download nel server dei clienti

  SourceFile:=SourceFile+NomeFile; //path+nome file da scaricare
  DestFile:=DestFile+NomeFile+Est;        //path + nomefile + est per salvare il file
  if DownloadFile(SourceFile, DestFile) = False      //scarico il file
    then
      ShowMessage('Error while downloading ' + SourceFile)
end;


function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;    //scarica il file
  except
    Result := False;
  end;
end;
Grazie in anticipo

Ciao