diff --git a/mdl/m_protocol_binkp.pas b/mdl/m_protocol_binkp.pas
index 68d0588..5cb04e7 100644
--- a/mdl/m_protocol_binkp.pas
+++ b/mdl/m_protocol_binkp.pas
@@ -458,6 +458,11 @@ Begin
                        If RxCommand = M_GOT Then Begin
                          HaveHeader := False;
                          NeedHeader := True;
+
+                         FileList.QData[FileList.QPos].Status := QueueSuccess;
+
+                         FileErase (FileList.QData[FileList.QPos].FilePath + FileList.QData[FileList.QPos].FileName);
+
                          TxState    := TxNextFile;
                        End;
                    End;