TStream.Seek nicht implementiert - Warum?

[Andreas L.]

Hi,
mit folgenden Code versuche ich eine Datei herunterzuladen.

Delphi-Quellcode:

 source := TStream.Create;

 downloader := TIdHTTP.Create;
 downloader.Get(RemoveParams(ADocument), source);

 ForceDirectories(extractfilepath(application.ExeName) + GetDomain(ADocument));
 fs := TFileStream.Create(extractfilepath(application.ExeName) + GetDomain(ADocument) + '\' + GetDocumentFileName(ADocument), fmCreate);
 fs.CopyFrom(source, 0);

 fs.free;
 downloader.Free;
 source.Free;

Beim ausführen wird mir die Exception "TStream.seek nciht implementiert" entgegen geschleudert. Warum?