Potential TList leak in FindLastSameBlockByOperationsBlock in UNetProtocol.pas

[SkybuckFlying]

Potential TList leak, plus potential TPCOperationsComp leaks that were added to same TList via Do_GetOperationsBlock.

See *** for problem code.

Line 1587 start of function:

 Function FindLastSameBlockByOperationsBlock(min,max : Cardinal; var OperationBlock : TOperationBlock) : Boolean;
 var i : Integer;
 ant_nblock : Int64;
 auxBlock, sbBlock : TOperationBlock;
 distinctmax,distinctmin : Cardinal;
 BlocksList : TList<TPCOperationsComp>;
 errors : String;
 Begin
 Result := false;
 OperationBlock := CT_OperationBlock_NUL;
 repeat
 BlocksList := TList<TPCOperationsComp>.Create; // *** LIST CREATED ***
 try
 If Not Do_GetOperationsBlock(Nil,min,max,20000,true,BlocksList) then exit; // *** LIST NOT DESTROYED ***