Verständnis Problem (Streams)

[monty.ms]

Hallo

Ich habe hier ein Tutorial aus der Code-Library und da bin ich an eine Stelle gekommen wo mir das Verständnis zu gefehlt hat.
Es geht um das Versenden von Dateien, speziell die Streams. Folgender Auszug:

Delphi-Quellcode:

  [...]
while (iTmpSize < iFileSize) and (not bError) do begin
  tmpMs.clear;
  Application.ProcessMessages;
  iSendTime := GetTickCount;
  try
    iNextSize := iFileSize - iTmpSize;
    if iNextSize > cFileSplitSize then iNextSize := cFileSplitSize;
    iTmpSize := iTmpSize + tmpMs.CopyFrom(fs,iNextSize);
    TcpCon.OpenWriteBuffer;
    TcpCon.WriteStream(tmpMS,true,true);
    TcpCon.CloseWriteBuffer;
  [...]

Es geht mir nicht um das Senden (darum auch nicht in die Internet Rubrik) sondern speziell um "tmpMs.CopyFrom(fs,iNextSize)"
Ich versteh was er da macht, aber da es eine Schleife ist, hab ich das gefühl er kopiert immer den selben Block. Wenn fs immer gleich bleibt, und iNextSize generell auch (außer am Schluss) dann müsste doch immer das selbe kopiert werden?!

Also versteht mich nicht falsch, das Programm funktioniert und macht was es soll, aber als ich mir das näher angesehen hab, ist mir das aufgefallen. Hoffe mich kann da jemand aufklären

Danke schonmal für eure Hilfe

monty