NumPackets := Size div PacketSize;
  if (Size mod PacketSize > 0) then
  begin
    Inc(NumPackets);
  end;
  hFile := CreateFile(PChar(Filename), GENERIC_READ, FILE_SHARE_READ, nil,
    OPEN_EXISTING, 0, 0);
  if (hFile <> 0) and (hFile <> INVALID_HANDLE_VALUE) then
  begin
    SetFilePointer(hFile, 0, nil, FILE_BEGIN);
    // Daten senden
    try
      GetMem(Buffer, PacketSize);
      try
        for I := 0 to NumPackets - 1 do
        begin
          if ReadFile(hFile, Buffer^, PacketSize, BytesRead, nil) then
          begin
            if (I = (NumPackets -1)) then
            begin
              SendSimplePacketEx(Buffer, BytesRead, Encrypt, Compress,
                Flags or DFLAG_SEQUENCE_END);
            end
              else
            begin
              SendSimplePacketEx(Buffer, BytesRead, Encrypt, Compress, Flags);
            end;
          end;
          SetFilePointer(hFile, PacketSize, nil, FILE_CURRENT);
        end;
      finally
        FreeMem(Buffer);
      end;
    finally
      CloseHandle(hFile);
    end;
  end;