procedure TForm1.Button1Click(Sender: TObject);
var
  hr: HRESULT;
  UrlFile, SaveFile: String;
begin
  UrlFile  := 'http://user.borahome.net/~basic201/tool/Borland C++ 5.5 setup.exe';
  SaveFile := 'C:bc.exe';
  hr := URLDownloadToFile(nil, PChar(UrlFIle), PChar(SaveFile), 0, nil);
  if hr = S_OK then ShowMessage('성공');

end;