Hab den Thread Start ins FormCreate verschoben und gleichzeitig den FileStream um das fmShareExclusive erweitert. Fehler taucht weiterhin auf.
Beim DeleteFile dürfte die Meldung nicht auftreten, da dieses nur ein einziges mal aufgerufen wird. Die Meldung kommt aber während des Downloads, also während den Durchlauf im Repeat Bereich. Ich denke eher dass es am FileStream also konrekt hier dran liegt:
Delphi-Quellcode:
if not FileExists(strLocalFile) then begin
fileDatei := TFileStream.Create(strLocalFile, fmCreate, fmShareExclusive );
end
else begin
fileDatei := TFileStream.Create(strLocalFile, fmOpenReadWrite, fmShareExclusive );
flgexit := fileDatei.Size >= intLength;
if not flgexit then
fileDatei.Seek(Max(0, fileDatei.Size-4096), soFromBeginning);
end;