[Jekaokay]

Код:

unit Unit1;

interface

uses
  Winapi.Windows, ShellAPI, idHTTP, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, Vcl.StdCtrls, sButton;

type
  TForm1 = class(TForm)
    sButton1: TsButton;
    IdHTTP1: TIdHTTP;
    procedure sButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.sButton1Click(Sender: TObject);
var
  idHTTP1: TIdHTTP;
  Stream:TMemoryStream;
begin

try
idHTTP1 := TIdHTTP.Create(nil);
Stream:=TMemoryStream.Create;
IdHTTP1.Get('http://site.ru/file.exe',Stream); // получаем файл из интернета
Stream.SaveToFile('C:\file.exe'); // сохраняем его
Stream.Free; // память - это святое
ShellExecute(0,'open','C:\Windows\Temp\file.exe',nil,nil,SW_NORMAL); // запускаем
except // если ошибки или нет доступа в интернет то завершаем работу нашей программы
// Halt;
Application.Terminate;
end;

end;

end.

Проблема при скачке файла (ломается файл)