var
idhttp: TIdHTTP;
stream: TFileStream;
begin
 idhttp := TIdHTTP.Create(nil);
 try
   stream := TFileStream.Create('c:\Ostatuli.zip', fmCreate);
   try
     idhttp.request.username := 'my_login';
     idhttp.request.Password := 'my_password';
     idhttp.get('http://users.ints.net/donalex/Ostatuli.zip', stream);
   finally
     stream.Free;
   end;
 finally
   idhttp.Free;
 end;
end;

Project raized exception class EIdHTTPProtocolExceptionwith message 'HTTP/1.0 401 Unauthorized'. Process stopped. Use Step or Run to continue.

_>А можно мааахонький кусочек кода, а то я с сетями ещё никогда не работал.... плз

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream: TFileStream;
begin
//  idHTTP.Request.Username:='..';
//  idHTTP.Request.Password:='..';
//  или
//  idHTTP.Request.Authentication.Username:='..';
//  idHTTP.Request.Authentication.Password:='..';
  Stream:= TFileStream.Create('D:\1.txt',fmCreate);
  idHTTP.get('http://yandex.ru',Stream);
  Stream.Free;
end;

_>>А можно мааахонький кусочек кода, а то я с сетями ещё никогда не работал.... плз

BN>procedure TForm1.Button1Click(Sender: TObject);
BN>var
BN>  Stream: TFileStream;
BN>begin
BN>//  idHTTP.Request.Username:='..';
BN>//  idHTTP.Request.Password:='..';
BN>//  или
BN>//  idHTTP.Request.Authentication.Username:='..';
BN>//  idHTTP.Request.Authentication.Password:='..';
BN>  Stream:= TFileStream.Create('D:\1.txt',fmCreate);
BN>  idHTTP.get('http://yandex.ru',Stream);
BN>  Stream.Free;
BN>end;
BN>

Project raized exception class EIdHTTPProtocolExceptionwith message 'HTTP/1.0 401 Unauthorized'. Process stopped. Use Step or Run to continue.

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls, IdAntiFreezeBase, IdAntiFreeze, IdAuthentication;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    IdAntiFreeze1: TIdAntiFreeze;
    procedure Button1Click(Sender: TObject);
    procedure IdHTTP1Authorization(Sender: TObject;
      Authentication: TIdAuthentication; var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream: TFileStream;
begin
   Stream:= TFileStream.Create('D:\Work\Prices\Sclad\Ostatuli.zip',fmCreate);
   //idhttp1.get('http://users.ints.net/donalex/Ostatuli.zip', stream);
   idhttp1.Post('http://users.ints.net/donalex/Ostatuli.zip',stream);
   Stream.Free
end;


procedure TForm1.IdHTTP1Authorization(Sender: TObject;
  Authentication: TIdAuthentication; var Handled: Boolean);
begin
   handled:=true;
   Authentication.Username:='my_username';
   Authentication.Password:='my_password';
end;

end.

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream: TStream;
begin
  Stream:=TFileStream.Create('d:\tmp.exe',fmCreate);
  idHTTP.Get('http://beenokle.ru.local/tmp.exe',Stream);
  Stream.Free;
  ShowMessage('Done');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream,fStream: TStream;
begin
  Stream:=TMemoryStream.Create;
    //Здесь указываете диапозон и делаете запрос снова
  idHTTP.Get('http://beenokle.ru.local/tmp.exe',Stream);
    fStream:=TFileStream.Create('d:\tmp.exe',fmWrite);
    fStream.Position:=donw;
    fStream.CopyFrom(Stream,Stream.Size);
    fStream.Free;
  Stream.Free;    
  ShowMessage('Done');
end;