Descargar fichero 25 Mb desde internet

[fmatias]

Bueno, ya he corregido el procedimiento para que se guarde el fichero en local en la dirección indicada.

El procedimiento que me indicó prhodo fue el siguiente:

Código Delphi [-]
procedure TFPpal.btnDescargaClick(Sender: TObject);
begin
  btnDescarga.Enabled := false;
  try
    IdHTTP.Get(rsUrlDescarga);
  finally
    btnDescarga.Enabled := true;
  end;
  ShowMessage(rsFinDescarga);
end;

Para que guarde el fichero lo he modificado de la siguiente forma, añadiendo la variable Destino y modificando la función IdHttp.get

Código Delphi [-]
procedure TForm1.btndescargaClick(Sender: TObject);
var
Destino: TFileStream;
begin
  btnDescarga.Enabled := false;
  Destino:=TFileStream.Create('c:\destino.zip', fmCreate);

  try
    IdHTTP.Get(ecarga.Text,destino);
  finally
    btnDescarga.Enabled := true;
    destino.free;
  end;
  ShowMessage(rsFinDescarga);

end;

Muchas gracias a prhodo por su colaboración, me ha ahorrado bastante tiempo de trabajo.

Saludos a todos.