delphi idHttp下载文件

procedure TForm1.Button3Click(Sender: TObject);
var
h:TIdhttp;
res :
String;
MyStream:TMemoryStream;
begin

MyStream:=TMemoryStream.Create;
h:=Tidhttp.Create(nil);
try

h.get('http://www.3464.com/project2.exe',MyStream);
except

showmessage('网络出错!');
MyStream.Free;
exit;
end;

MyStream.SaveToFile('c:\1.exe');
MyStream.Free;
end;