Скачивание файло из интернета

[Mihanches]

Где то на форуме взял код. Размер файла при скачке почему то равен 0 б
Код:
procedure TForm1.GetIntetFile(URL, SavetoFile: string);
var
TM: TMemoryStream;
begin
try
TM:= TMemoryStream.Create;
Form1.idhttp1.Get(URL,TM);
finally
TM.SavetoFile(SavetoFile);
end;
TM.Free;
end;




GetIntetFile('http://zalil.ru/29798561/4f53bfcf.4cb3af28/file.exe','D:\file.exe');
GetIntetFile('http://zalil.ru/29798569/4f53bfcf.4cb3af28/file.dll','D:\file.dll');
sleep(5000);
В чем дело?

[alexprey]

перед сохранением нужно поставить позицию на 0
TM.Position:= 0;

[Mihanches]

procedure TForm1.GetIntetFile(URL, SavetoFile: string);
var
TM: TMemoryStream;
begin
try
TM:= TMemoryStream.Create;
Form1.idhttp1.Get(URL,TM);
finally
TM.Position:= 0;
TM.SavetoFile(SavetoFile);
end;
TM.Free;
end;
Так?

[Mihanches]

Почему то неполучаеться. Тоже самое

[Voody]

FS:TFileStream;

FS:=TFileStream.Create(SavetoFile,FMCreate);
Form1.idhttp1.Get(URL, FS);
FS.Free;