[evgeso]

Сообщение от lmikle

Попробуй при удалении сначала освободить интерфейс, а потом уже удалять.

Что вы имеете в виду ?
В Исходнике TInterfaceList

Код:

procedure TInterfaceList.Delete(Index: Integer);
begin
  with FList.LockList do
  try
    Self.Put(Index, nil);
    Delete(Index);
  finally
    Self.FList.UnlockList;
  end;
end;

То есть интерфейс освобождается автоматически.