sp;         begin

                       WaitForSingleObject(Write_Os.hEvent,INFINITE);

                       GetOverlappedResult(hNewCommFile,Write_os,

                                           dwNumberOfBytesWritten,False);

                     end

                   else

                     begin

                       MessageBox(0,''WriteFile Error!'',''Notice'',MB_OK);

                       Receive :=False;

                       CloseHandle(Read_Os.hEvent);

                       CloseHandle(Post_Event);

                       CloseHandle(hNewCommFile);

                       Exit;

                     end;

                end;

             end;

         Dec( dwNumberOfBytesToWrite, dwNumberOfBytesWritten );

           Inc( dwWhereToStartWriting, dwNumberOfBytesWritten );

        until (dwNumberOfBytesToWrite <= 0);  // Write the whole thing!

        Form1.Caption:=IntToStr(dwWhereToStartWriting);

      finally

        StrDispose(pDataToWrite);

      end;

  &nb