unit Unit1;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, urlmon, StdCtrls;

type
    TForm1 = class(TForm)
      location: TEdit;
      path: TEdit;
      Button1: TButton;
      Label1: TLabel;
      Label2: TLabel;
      procedure Button1Click(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;

var
    Form1: TForm1;

implementation

{$R *.dfm}

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
    try
      Result:=UrlDownloadToFile(nil,PChar(SourceFile),PChar(DestFile),0,nil)=0;
    except
      Result := False;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DownloadFile(location.Text, path.Text);
end;

end.